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Preface 


Jis a dialect of APL freely available on a wide variety of machines. 

It is the latest in the line of development known as “dictionary APL”. 
The spelling scheme uses the ASCII alphabet. The underlying 
concepts, such as arrays, verbs, adverbs, and rank, are extensions and 
generalizations of ideas in APL\360. Anomalies have been removed. 
The result is at once simpler and more powerful than previous dialects. 


This book describes an implementation of J in C. The reader is 
assumed to be familiar with J and C. J is specified by the /57 
Dictionary of J, and introductions to the language are available in An 
Introduction to J and Programming in J; C is described in The C 
Programming Language. 


Why “J”? It is easy to type. 
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m jinit2 
r- prompt 
m jgets 


tokens enstack 
~ main ~ 


— immloop ~ [- conj 


[- immer parse hookv 


— јрг 
— tpop 


The system is organized as above. The main function main calls jinit2 
for initializations, then immloop ("immediate execution" loop), which 
repeats the following steps: 


Prompt and jgets prompt and accept an input sentence. 


immex is the heart of the execution loop. The argument is a string of ће 
input sentence. The processing is divided into three parts: 


* tokens — word formation — applies the rhematic mules to partition the 
sentence into words. The result is a list of parts of speech: nouns, verbs, 
adverbs, conjunctions, copulae, and punctuation. 

* parse interprets the sentence according to the parsing rules. Parsing is 
controlled by a table of (pattern,action) pairs; the eleven possible actions 
are embodied as the functions listed under parse in the diagram. 

* jpr displays the result of the sentence. 


Finally, tpop frees the temporary storage used in an iteration. 
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The fundamental data structure is the APL array (an object of data type a), 
used to represent all the possible objects in J. Most functions in the 
implementation accept arrays as argument and return them as result. 
Functions tend to be short and compact, and functions which implement J 
primitives are used freely. Extensive use is made of C preprocessor 
definitions and macros. Although the implementation language is C, the 
programming style is unmistakably APL. 


The book is organized along the lines of the dictionary: Chapter 1 
describes the interpretation of a sentence. Chapters 2, 3, and 4 describe 
nouns, verbs, and adverbs and conjunctions. Chapter 5 presents 
alternative representations. Chapter 6 describes display. Chapter 7 
describes comparisons. Chapter 8, the final chapter, discusses each 
primitive in detail. 


The remainder of the book of contains various useful bits. In particular, 
Appendix F (on the back cover) provides a means of quickly locating a 
primitive in the program files, and the Glossary has a short description on 
every non-local name in those files. 
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1. Interpreting a Sentence 
1.1 Word Formation 


Words are expressed in the standard ASCII alphabet. Primitive words are 
spelled with one or two letters; two letter words end with a period or a 
colon. The entire spelling scheme is shown on the back cover. The verb 
:: facilitates exploration of the rhematic rules. Thus: 


г: "sum =.+/_6.954i.3 4' 
[oun =.|+\/ mo ifs 4] 


The source code for word formation is in file w.c. The process is 
controlled by the function wordil (word index and length) and the table 
state. Rows of state correspond to 10 states; columns to 9 character 
classes. Each table entry is a (new state, function) pair. Starting at state 
ъ, a sentence is scanned from left to right one character at a time; the table 
entry corresponding to the current state and character class is applied. 


NEW STATE/FUNCTION STATES CLASSES 

b ?= а= N= a= 9= ?= ?= '= b Blank b Blank 
b» ?> а> N> a» 9>? ? '> ? Other ? Other 
b> ?> а аа? 27? > a Name a Letters excl. NB 
b> ?> a a Ba ? ? > NN N The letter м 
b> ?> a а а а C ? > B NB B The letter B 
zz zo I for ? 2? 2 C NB. 9 Digits and _ 
b> 72> 9 9 9 9 9 ? '» 9 Number . Period 
OE ESL ДЕ. ЖЕ. RE ' Quote : Colon 
b» ?» a» N> a» 9» ?> ?> ' " Adjacent Оез ' Quote 
$cES € Ux GS Е RE z Comment 
ътанвэә. : FUNCTION 

> j=.i [ Emit(j,i-1) 

= à 
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Emit (j,i-1) produces а pair of indices delimiting a word in the string. 
i is the current index, and j is an internal register; if the current word is 
a number immediately following a numeric list (one or more numbers), 
Emit combines their indices to form a single word. At the end of the 
string, Emit (3,4-1) is executed. 


This process is applied to sum =.+/_6.95*1.3 4, the sentence used 
above to illustrate word formation. In the following table, the columns 
are: index, character in the string, the (current state, character class) pair, 
the (new state, function code) pair, and the action. For example, the first 
step is step 0, the letter is s, the current (and initial) state is b, and the 
character class is a. From the table, the entry in row b and column a is 
a=, meaning the new state is a and the function code is =. The action 
assigns 010 j. 

STATE/ NEW STATE/ 


i CHAR —CHARCLASS FUNCTION ACTION 

0 s ba а= j-.0 

I ч aa a 

2 aa a 

3 ab b> [ Emit (0,2) 

4 = b? E 

5 : 235 ? 

6 > 22 > [ Emit (4,5) 

7 / 2? > { Emit (6, 6) 

8 с 29 9» [ Emit(7,7) 

9 6 99 9 

10 š 9 9 

iL 9 99 9 

12 5 99 9 

13 * 9? ?> j=.13 [ Emit (8,12) 
14 i та а> ј=.14 [ Emit (13,13) 
15 a. ? 

16 3 29 9» 3=.16 [ Emit(14,15) 
17 9 b» j=.17 { Emit (16,16) 
18 a b9 9- j=.18 

19 Emit (18,18) 
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Every primitive word has an ID (a unique byte value) defined in file jc.h. 
The ID for the first 128 ASCII characters are simply the byte values 0 to 
127; other IDs are arbitrary assignments in “dictionary order". 


define 


CLPAR ы /* 40 050 28 
#define CRPAR nt /* 41 051 29 
#define CSTAR "ж" /* 42 052 2а 
#define CPLUS +! /* 43 053 2b 
define CASGN "\200° /* 128 200 
#define CGASGN `\201' /* 129 201 81 
itdefine CFLOOR '\202' /* 130 202 82 
define CMIN '\202' /* 130 202 82 
(define CLE `\203' /* 131 203 83 
define CCEIL '\204' /* 132 204 84 
define CMAX "\204' /* 132 204 84 
#define CGE '\205' /* 133 205 85 


Using mnemonics such as CPLUS and CASGN instead of 


80 = 


af 
*/ 
*/ 
*/ 


*/ 
“f 
*/ 
*/ 
*/ 
*/ 
*/ 
Ы; 


YY VARA 


'+' and 


'"\200' makes the source code more readable and more amenable to 


automatic manipulation. 


The 3-row table зре11 associates letter sequences with IDs. The rows 
correspond to letters in the range ASCII 32 to 127, those letters inflected 
by a period, and those letters inflected by a colon; table entries are IDs. 


Thus: 
static C spell[3][47]-( 
v=, DIM >, A "t, ver, ü 
CASGN, CFLOOR, CCEIL, 1, COR, CAND, ..., 
CGASGN, CLE, CGE, CUSCO, CNOR,  CNAND, ..., 


} 


The first column specifies that =. 
: the ID ceasen (global assignment). 
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has the ID cascw (assignment) and 


Interpreting 


spell is used by functions spellin and spellout: given a string 
(eg. "=."), spellin computes the ID (casen), given the ID, 
spellout computes the corresponding string. spellin also uses the 
table nu, which contains alternative spellings for the “national use” 
characters. 


Using the information computed by wordil, functions tokens and 
enstack transform a string into a list of nouns, verbs, adverbs, 
conjunctions, etc. The next step is to parse this “tokenized” form of the 
sentence. 
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1.2 Parsing 


Parsing occurs after word formation and is controlled by function parse 
and table cases in file p.c. cases is a direct translation of the parse 
table in Section IL E of the dictionary: 


#define EDGE (MARK+ASGN+LPAR) 
(define NOTCONJ (NOUN+VERB+ADV) 
fidefine RHS (NOUN+VERB+ADV+CONJ) 


PT cases[] = ( 


EDGE, VERB, ‘NOUN, ANY, monad, vmonad,cmonad, 1, 2, 
EDGE+NOTCONS, VERB, VERB, NOUN, monad, vmonad,cmonad, 2, 3, 
EDGRéNOTCONJ, NOUN, VERB, NOUN, dyad, vdyad, cdyad, 1, 3, 
EDGE+NOTCONS, NOUN+VERB, ADV, ANY, adv, vadv, cadv, 1,2, 
ЕРСЕ+МОТСОНЈ, NOUNAVERB, СОНЈ, ROUNHVERB, conj, vconj, cconj, 1, 3, 
EDGE+NOTCONS, VERB, VERB, VERB, forkv.vforkv,cforkv, 1, 3, 
EDGE, VERB, VERB, ANY, hookv, vhookv, chookv, 1, 2, 
EDGE, ADVéCONJ,  ADV4CONJ,  ADViCONJ, formo, vformo,cformo, 1, 3, 
EDGE, ADVéCONJ, ADV+CONJ, ANY. formo, vformo, cformo, 1, 2, 
EDGE, CONJ, NOUN+VERB, ANY, curry, veurry,ccurry, 1, 2, 
EDGE, ROUN+VERB, CONJ, any, curry, veurry,courry, 1, 2, 
NAME+NOUN, АЅСН, RHS, wy, is, vis, vis, 0,2, 
LPAR, вн, RPAR, ANY. punc, vpunc, vpunc, 0, 2, 


ь 


The sentence to be parsed is prefaced with a marker and placed оп а 
queue, and as parsing proceeds words are moved from the right end of the 
queue onto a stack. The classes of the first four words on the stack are 
compared to the patterns in columns 0 to 3 of cases. The first row 
matching in all four columns is selected; the action in column 4 is applied 
to the words on the stack indicated by the inclusive indices in columns 7 
and 8, with the result replacing those words. If none of the rows match, 
the word at the end of the queue is moved onto the stack by the function 
move. Scanning for a matching pattern then begins anew. The process 
terminates when the queue is empty and none of the rules are applicable. 
At that time, the stack should have exactly two words: the marker and a 
noun, verb, adverb, or conjunction; anything else signals syntax error. 
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This parsing method was first described in Iverson {1983]. The parse 
table is a compact representation of a large amount of information; it has 
guided both the evolution of the language and its implementation. The 
following example illustrates parsing on the sentence ((i.#y)=i.~y) #y 


where y-.'abc'. 


QUEUE STACK 
$(G. fy) si..~y) фу 
5((1.#у)=1.-у)Ф ‘aba! 
$((i. dy) =i.~y) d'aba* 
$(G.dy)-i.-y )#'аБа' 
$((4.#у)=ї.- 'аЬа')#'аЬа' 
S((i. $y) =i. ~'aba')# aba’ 
S((i.fy)= i.-'aba')j'aba' 
sc. ay) =i.~'aba') фара’ 
S((i. ty) жу0 'aba')f'aba' 
S (ti. ty )=vO 'aba')f'aba' 
sca. 'aba')-vO 'aba')f'aba" 
8({4. — 'aba')-vO 'aba')f'aba' 
S({ i.f'aba')-vO 'aba')f'aba' 
S( (i. d'aba')-vO 'aba')f'aba' 
$t (i.3)-vO 'aba')$'aba' 
st (0 1 2)-vO 'aba')f'aba' 
$t 0 1 2-vO 'aba')#'aba' 
st 0 12-0 1 0)f'aba' 
s (0 12-0 1 0)f'aba' 
s Q 1 0)f'aba' 
s 11 Of'aba' 

$1 1 Of'aba' 
Stab! 
Chapter 1 


(s denotes the marker.) 


RULE/ 
ACTION 


12 
13 


move 
move 
move 


move 


move 
move 
move 
adv 

move 


move 
move 
move 
move 


monad 


monad 
pune 
monad 


move 


dyad 


punc 
move 


dyad 


COMMENT 


vOz.i.- 


110-:012-010 


‘ab’ -: І 1 Oj'aba' 
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Functions vmonad, vdyad, ... іп column 5 of cases are used by 
vtrans in file pv.c to implement s : 11, a tacit verb equivalent to з : 
"тог '!' : в. As described in Hui, Iverson, and McDonnell [1991], 
vtrans works by parsing s. A parallel stack is maintained, and actions 
оп the stack have parallel actions on corresponding objects on the parallel 
stack. [n particular, when an action applies a verb to its argument(s), 
resulting in a noun, the parallel action composes the verb with tacit verbs 
that produce the arguments, resulting in a new tacit verb. 


Similarly, functions cmonad, cdyad, ... in column 6 of cases are used 


by ctzans in file pc.c to implement s : 12, a tacit conjunction 
equivalent to s : 2. 
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1.3 Trains 


A train is an isolated phrase not interpreted by the parsing rules pertaining 
to verbs, adverbs, and conjunctions, and (as a matter of language design) 
may be assigned any meaning whatsoever. Iverson and McDonnell (1989] 
defined a train of three verbs as a fork and a train of two verbs as a hook. 
That is, if f£, g, and h are verbs, then so are {£ g h) and (9 h), and: 


FORK HOOK 


¥) 2 z yz y y y 


Similarly, trains of two or three adverbs and conjunctions can be assigned 
meanings. The interpretation of trains of two or three adverbs and 
conjunctions are as follows: 


TRAIN RESULT DEFINITION 
аб al a2 adverb x a0 al a2 
a0 al c2 undefined 
að cl a2 conjunction (x a0) сі (y a2) 
a0 cl c2 conjunction (x a0) сі (x c2 y) 
с0 al a2 conjunction x c0 y al a2 
c0 al c2 undefined 
c0 cl a2 conjunction (x сб y) cl (x a2) 
c0 cl c2 conjunction (х c0 y) cl (x c2 y) 
a0 al adverb x a0 al 
a0 cl adverb x a0 cl x 
сб al conjunction x c0 y al 
c0 ei undefined 


Finally, a conjunction in isolation with an argument bonds (Curries) the 
argument to the conjunction, producing an adverb. 
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Parsing rules 5 to 10 deal with trains. (See 1.2 Parsing.) A consequence 
of the rules is that a train of verbs is resolved by repeatedly forming a fork 
from the rightmost three verbs, with a final hook if the train is of even 
length. Likewise, a train of adverbs and conjunctions is resolved by 
repeatedly forming a group from the /eftmost three adverbs or 
conjunctions, with a final group of two if the train is of even length. 


Trains are implemented by the functions and variables in file ct.c. The 
main routines are: 


folk A train of three verbs (“‘fork” conflicts with UNIX usage) 
hook A train of two verbs 

forko A train of three adverbs and conjunctions 

hooko A tain of two adverbs and conjunctions 

advform А conjunction in isolation with an argument 

gtrain The noun case of the adverb X 
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1.4 Name Resolution 


During parsing, words are moved from the queue to the stack (see 1.2 
Parsing). Suppose a name xyz is being moved. If xyz is immediately 
to the left of a copula, it (as a name) is put on the stack. Otherwise, if xyz 
denotes a noun, that noun is put on the stack; if xyz denotes a verb, 
adverb, or conjunction, 'xyz'- is put on the stack, to be evaluated when 
the verb, adverb, or conjunction is applied. 


Names and their assigned values are stored in symbol tables. A symbol 
table is an array of type S¥MB whose atoms are pairs (name, value). (See 
2.1 Arrays.) Functions and variables in file s.c work with symbol tables. 
In particular, symbis (а, м, symb) assigns the name a to м in the symbol 
table symb, and symbrd(w) "reads" the value of the name w. 
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2. Nouns 
2.1 Arrays 


The fundamental data structure is the array, that is, an object of the C data 
type A defined in file jt.h: 


typedef long I; 


typedef struct (I t,c,n,r,s[1]:) *A; 


All objects, whether numeric, literal, or boxed, whether noun, verb, 
adverb, or conjunction (or other), are represented by arrays. For example, 
thestring 'Cogito, ergo sum.',the atom 1.61803, and the table i.3 4 


are represented thus: 


t c n = s[0) 
CHAR 1| i7 1 17] cogs to, ergo] sumj. 
$ e n г 
т 
FL 1 1 0 1.61803] 
t c n r s[0] s[i} 
INT 1| i2 2 3 4 о 1 2 


o 


5 al a 8 1o| 11 


The parts of an array, and macros for manipulating them, are as follows: 


PART MACRO 
t АТ 
с АС 
n AN 
$ AR 
s AS 
AV 
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DESCRIPTION 


type 

reference count 

number of atoms 

rank 

shape 

"value", atoms in ravelled order 
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The shape s consists of = integers whose product equals n. The atoms 
of the array follow immediately after s, in ravelled (row major) order. 
Setting є, п, x, or s incorrectly, or exceeding the bounds of the array 
specified by these quantities, almost always lead to erratic behaviour and 
catastrophic failure. 


The macros АТ, AC, AN, and AR denote "fullword" integers and may 
occur on the left or right of an assignment (i.e. they аге “‘Ivalues”). As is 
an integer pointer. av is also an integer pointer, and must be cast to a C 
data type appropriate for the type of array. (See 2.2 Types.) 


All arrays are created using the macro Ga in file j.h. The statement 
GA (xyz, t;n, r, $); 


creates an array named xyz of type t and rank z, having n atoms and 
shape з. Ifthe rank is 0, s is ignored; if the rank is 1, again s is 
ignored, and the shape is set to n; otherwise, if s is 0, the shape is not 
initialized by Ga (and must be initialized subsequently). Ga returns zero 
if the array can not be created. 


For example, the arrays diagrammed on the previous page might be 
created as follows, under the names ces, phi, and m: 


typedef char С; 
typedef double D; 


A ces,m,phi; I j,*s,*v; 
GA (ces, CHAR, 17,1,0) ; 
memcpy((C*)AV(ces),"Cogito, ergo sum.", (size t)17); 


GA(phi,FL,1,0,0); 
* (D*) AV (phi) =1, 61803; 


СА (m, INT, 12,2,0) ; 
З=АЅ (т); *s-3; *(1+3)=4; 
УАУ (m); for (j=0;12>5; *j) *у4+ 
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The following utilities in file u.c are convenient for creating simple arrays: 


A se(I k) An integer atom with value к 

А scalar4(I t,I k)  Anatomoftype t with 4-byte value k 

A scf(D x) A floating point atom with value x 

A зсс(С c) A literal atom with value c 

А apv(In,Ib,I m) Тһе arithmetic progression vector b+m*i.n. 

A str(I n,C*s) A string (literal list) of length n with value 
the characters pointed to by з. 

A cstr(C*s) A string with value the characters in the 


Ü-terminated string s. 


For example, the first two arrays diagrammed on the first page of this 
chapter might be created by str(17L,"Cogito, ergo sum.") Or 
Cstr("Cogito, ergo sum.") and by scf(1.61803); and sc(X) is 
equivalent to scalar4(INT,X). 


A few useful constants are also provided. They are initialized in file i.c. 


zero 0 

one 1 

two 2 

negi a 

pie 9.1 ("pi" conflicts with C usage) 
а031 031 

mtv $0 

jot «$0 

dash i=? 
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2.2 Types 


If x is an array, its type AT (x) specifies how the atoms starting at AV (x) 
are to be interpreted. In C programming terms, Av (x) must be cast toa 
pointer of the appropriate C data type: 


CDATA 
AT(x) TYPE DESCRIPTION 
BOOL B Boolean 
CHAR с literal 
INT I integer 
FL D floating point 
CMPX 2 complex 
Box A boxed 
VERB v verb 
ADV v adverb 
CONJ v conjunction 
NAME c name 
LPAR I left parenthesis 
RPAR I right parenthesis 
ASGN X assignment 
MARK 1 parser marker 
SYMB sy symbol table 


For example, if x is literal and s=(c*)av(x), then s[i] is character i 
of x. The C data types in the table are all typedefs found in file jt.h; 
the data type v is explained in Chapter 4. 


Types are fullword integers, and are powers of 2 to permit convenient tests 
for “composite” types. For example, if: 


#define NUMERIC (BOOL+INT+FL+CMPX) 
#деғіпе NOUN (NUMERIC+CHAR+BOX) 


Then the phrase NUMERIC&AT (x) tests for numeric arrays, and the phrase 
NOUNS&AT (x) tests for nouns. Such comparisons play a key role in the 
parser (see 1.2 Parsing). 
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A numeric array is accepted as argument by a primitive, regardless of its 
type, if it is mathematically within the domain of the primitive. For 
example, a primitive with integral domain would accept integers in an 
array of type FL, CMPX, ог BOOL, or of course Інт. (This analytic 
property does not extend to functions internal to the implementation.) 
Functions in the file k.c convert between numeric types. A converted 
result is an array of the target type equal to the argument within fuzz (see 7 
Comparatives). The following functions are available: 


evt (t,x) Convert x to type +; signal error if not possible 
pevt (t,x) Convert x to type t; return x if not possible 
xcvt (x) Convert x to the "lowest" type 


The utility bp in file u.c applies to a type, and returns the number of bytes 
per atom of that type. Thus bp(INT) is 4; bp(AT (x)) is the number of 
bytes per atom of x; and 16+(4*AR(x))+AN(x) *bp (AT (x)) is the 
number of bytes required by x — 4 bytes each for t,c,n,x; 4 bytes each 
for the AR(x) elements of the shape; and bp (aT (x)) bytes each for 
AN(x) atoms. 


The atoms of a boxed array are pointers to other arrays, and are accessible 
through (A*) Av (x), as the following example illustrates. aib applies to 
а boxed array x, and returns the number of atoms in each box of x: 


Édefine R return 


А aib(x)A x;(A*u,z;I j,*v; 


СА (z, INT, AN (x) , AR x) , AS (x) ) ; eles 
= (АЖ) АУ (х): v-AV(z): /*® 2 */ 
for (j=0; AN (х) >}; €*j) *V+4+=AN (*ut+) ; wae 
Rz; 


) 


Line 1 creates an integer array z having the same rank and shape as x. 
Line 2 initializes pointer variables ч and v fortraversing x and т. 
Line 3 runs through the atoms of x, through u, and records the number 
of atoms in each. Since the data type of u is a*, the data type of *u is 
A andare subject to AN, AT, AV, etc. 
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2.3 Memory Management 


When an array is created, malloc is called to obtain the requisite storage; 
when this storage is no longer needed, free is called to return it to the 
underlying system. No “garbage collection” is done. The performance of 
this strategy is adequate on modern virtual memory systems. To facilitate 
the implementation of alternative strategies, the use of malloc and free 
is limited to a single instance each, in the file m.c. 


The reference count of an array is incremented when it is assigned a name, 
directly or indirectly, and is decremented when the name is re-assigned or 
erased; when the reference count of an array reaches 0, its storage is freed. 


When an array is created, a pointer to it is entered in a “temp stack” 
(tstack in file т.с). A remp is an array on this stack with a reference 
count of one. The temp stack plays an important role in the main 
execution loop (see 0 /ntroduction). In an iteration of the loop, 


* The top of the temp stack is recorded; 

* A line of user-input is executed; and 

* Temps from the current top-of-stack to the old top-of-stack recorded 
above, are freed. 


This device permits functions to be written without explicit memory 
management code. For example, the monad ,: is written: 


Fl(laminl) {К reshape (over (опе, shape (w) ) , w) ; } 


And laminl need not be concerned with temps used in reshape, over, 
Or shape, because they are accounted for in the main loop. 


On the other hand, a function may account for temps: On entry into the 
function, the current top-of-stack is recorded; on exit, temps are freed 
down to the recorded point. (These actions are mediated by the macros 
PROLOG and EPILOG.) Whether a function accounts for temps does not 
affect the logic of functions that it calls, nor functions that call it. 
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3. Verbs 
3.1 Anatomy of a Verb 


Verbs are implemented as functions. A verb applies to a noun (if used 
monadically) or to two nouns (if used dyadically), and produces a noun. 
The data type Ar and the macros F1 and F2 codify these properties: 


typedef A(*AF) (); 


(define F1(f) A f(w)A w; 
define F2(f) А f(a,w)A a,w; 


AF is the data type of a function having these properties. F1 and F2 are 
used to specify the headers of functions implementing verbs. (They are 
also used to specify headers of adverbs and conjunctions.) By far the 
majority of functions in the implementation are so specified. Verbs are 
represented by arrays of type VERB; the details of this representation are 
deferred until the next chapter, 4 Adverbs and Conjunctions. 


The verb 4. is used here to illustrate the relationship between relevant 
system components. Recall that j. has топай 031&* and dyad +3., 
with ranks _ 0 0. There are three main steps in the implementation: 


1, Define and declare functions which implement the monad and dyad. 
2. Associate j. with the functions and other information. 
3. Specify obverses, identity functions, and variants (if any). 


The steps are executed as follows: 


1. Functions which implement the топай and dyad j. are added to file 
vm.c (or to one of several v*.c files), and declarations are added to је.ћ: 


FILE vm.c FILE je.h 
Fl(jdotl)(R times (a0j1,w) ;} extern А jdotl(}; 
F2(jdot2) {R plus (а, jdot1(w));} extern А jdot2(); 
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2. The association between 1. and jdoti and jdot2 is established in 
the tables ps and psptr in file Lc. psptr[x) is the index in ps for 
byte value x. The ID for 3. is соот (defined in file jc.h; see 1.1 
Word Formation), therefore the information for j. can be found in 
Ps[psptr[CJDOT]). Entries in that locale are as follows: 


/*199 E. CEBAR */ (VERB, 0, ebar, 0,  RMAX,RMAX,O }, 
/*200 £. CFIX */ (ADV, fix, 0, о, 0, 0, 0 bh 
/*201 i. CIOTA */ (VERB, iota, indexof,1,  RMAX,RMAX,O0 }, 
/*202 j. CJDOT */ (VERB, jdotl, jdot2, RMAX,0, 0, 0 }, 
/*203 o. CCIRC */ (VERB, pitimes,circle, RMAX,0, 0, 0 }, 
/*204 p. CPOLY */ (VERB, polyl, poly2, 1, 1, 0,  CPOLY), 


The entry for 3. indicates that it is a verb, with monad jdot1, dyad 
jdot2, monadic rank RMAX, left dyadic rank 0, right dyadic ranks 0, and a 
non-primitive inverse (if it has an inverse at all). The information in ps 
and psptr are used by the utility ds ("define symbol") in file au.c. ds 
applies to an ID and produces the corresponding primitive. Thus, 
ds(CJDOT) is j.. 


3. A verb may have additional parts which can not be specified as static 
data structures. (ps and psptr are static data structures.) Such 
information is embodied in functions inv and invamp (obverses)in file 
ai.c, iden (identities) in ai.c, and fit (variants) in cf.c. See 3.4 
Obverses, Identities, and Variants. 


The obverse for j., n&j. and j.&n are as follows: 


ор #2031 
n&j. *&0ji8(-&n) Or (j.^: 1)8(-&n) 
j.&n -&(j.n) 


The obverse of 5. is implemented as case CJDOT in inv; those for 
náj. and j.&n are implemented as case CJDOT іп invamp. The 
identity function of 3. is $60@}.@$, and is implemented as case CJDOT 
in iden. j. has no variants; the implementation of a variant would have 
required а case in fit. 
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3.2 Rank 


The ranks of a verb are three integers of the monadic rank, left rank, and 
tight rank. A verb need only be defined on arguments of rank bounded by 
its ranks; the extension to higher-ranked arguments is uniform for all 
verbs. The intrinsic (default) ranks of a verb u may be augmented by the 
rank conjunction, thus: u"n, which may be modelled as follows: 

rank =, #@$ 

rep =. 3&$&.|. 

cellax =. 0&>.@(+галк)` («.rank) 8. (0&<:@{) 


enl Y («6$ , £ $: */@[ ). 1) 8. (*@#@1]) 

enc -8cellax ((}.$) $ ({.$) enl ,8]) ] 

sfx -@<.Grank 

agree (sfx {. $8D -: (sfx (. $@]) 

frame =. ('err'&t) ($8([ ]8. (X&rank))) 8. agree 
r rep n 

meell (0(r) senc 

leell =. (1(r)&enc8[ [. lframe =. frame ($,) [ 


rcell =. (2ir)&enc8] Г. rframe =. frame ($,) ] 


u"n y js us» mcell y 
x u"ny is x (1се11 (lframe u> rframe) rcell) y 


The utility rank returns the rank of its argument, and rep replicates one 
Ortwo ranks into three. к cellax y computes the number of cell axes 
forrank z and noun y; s enl,y boxes the first cell of y for cell shape 
з; and с enc y boxes the cells of y forrank r. 1се11 (гсе11) builds 
an array of boxed left (right) argument cells; 1£rame and rframe check 
these arrays for agreement (viz., shapes must match in suffix), then 
reshape the lower-ranked array to the shape of the other. In the expression 
for the dyad, us» applies to left and right arguments of the same shape; in 
both expressions, u applies to cells with rank bounded by n. 


(The preceding text borrows extensively from Hui [1987] A.2.) 


The model is implemented by functions ranklex and rank2ex (“тапк 
execution") in file cr.c. A function £ has access to the entire arguments 
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of the verb that it implements, regardless of the ranks of the verb. Within 
£, rank effects can be achieved by invoking ranklex and rank2ex, 
mediated by the macros ғ1ВАМК and F2RANK: 


A ranklex( Aw,A self,I m, AF f1); 
А rank2ex(A а,А w,A self,I l,I r,AF £2); 


FIRANK(m, fl,self); 
F2RANK (1, r, £2, self); 


a and w are the left and right arguments of the verb; £1 and £2 are 
functions which implement the monad and dyad; m, 1, г are ranks; and 
self isan array representing the verb (see 4 Adverbs and Conjunctions). 
For example, the dyad # has ranks 1 _ and is implemented by the 
function repeat, which uses F2RANK as follows: 


F2(repeat) {A z;C*v,*x;I c,j,k,m,p-0,n,r,t,*u:; 
F2RANK (1, RMAX, repeat, 0) ; 

RZ(a-vi(a)); . 

} 


If the argument ranks аге not greater than the verb ranks, Шеп F2RANK 
(FiRANK) does nothing, and execution proceeds to the statement following 
the macro; if the argument ranks are greater, then F2RANK (F1RANK) 
invokes rank2ex (ranklex), and on return therefrom exits £ with the 
result obtained therefrom. In this scheme, rank2ex (ranklex) invokes f 
repeatedly, but with arguments of rank bounded by the verb ranks. 


A function may implement rank by other means. For example, the dyad t 
has ranks 0 _ andis implemented by the function from, which eschews 
rank2ex On numeric left arguments when rank effects are rather simple. 
(from does use rank2ex on boxed left arguments.) Atomic verbs also 
implement rank independently to exploit the special properties of such 
verbs. See the next section, 3.3 Atomic (Scalar) Verbs. 


Verbs derived from adverbs and conjunctions are always invoked with 
self. The macros PREF1 and PREF2 are used in such cases, wherein 
ranklex and rank2ex are invoked with ranks extracted from self, and 
not with “hard-wired” numbers as in the use of F1RANK and F2RANK for 
primitive verbs. 
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3.3 Atomic (Scalar) Verbs 


An atomic verb is a primitive verb of the form £"_ : g (that is, a verb 
whose monad is £" and whose dyad is g), where £ and g have zero 
argument and result ranks. (These are the scalar functions in APL.) The 
shape of the result is therefore determined by the shapes of the arguments 
alone: For monads, the shape of the result is simply the shape of the 
argument; for dyads, it is the shape of the higher-ranked argument (and the 
shape of the other argument must be a suffix of this shape). The гуре of 
the result is determined by the types of the arguments. 


Mechanisms described in the previous section (3.2 Rank) suffice to 
implement atomic verbs. However, the special properties of atomic verbs 
can be exploited to effect more efficient computation, as follows: 


In the implementation, the definition of an atomic verb begins by specify- 
ing the computation on atoms of each data type, in the form of kernels. A 
kernel is a function defined by the macros sri or sF2 (in file v.h). For 
example, the kernels for the dyad + are as follows (in file ve.c): 


static SF2(bplus,B,I, *u+*v) 

static SF2(iplus,I,D, *u*(D)*v) 
static SF2(dplus,D,D, *ut*v) 
static SF2(jplus,Z,Z, zplus(*u,*v)) 


As the examples illustrate, sF2 has four arguments, £, Tv, Tx, and exp. 
£ is the name of the function being defined; Tv is the data type of the 
arguments; Tx is the data type of the result; and exp is an expression for 
computing the result from the arguments, wherein the left argument is 
available as a pointer of data type tv named u and the right argument a 
pointer of data type 7v named v. The definition of the macro is rather 
Shorter than the preceding description: 


#define SF2(f,Tv,Tx, exp) \ 
В f(u,v,x)Tv*u, *v; Tx*x; (*x=(exp); R!jerr;} 
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The formal result of a kernel (i.e. the result as far as C is concerned) is 
Boolean, and is 1 if no errors are encountered. (The variable jerr is 
explained in Section 3.5 Error Handling.) 


SF1 is similarly defined. In the expression exp, the right (and only) 
argument is available as a pointer of data type Tw named v. 


The logic for applying kernels is embodied in functions sexi and sex2 
("scalar execution”) in file cr.c, with the following prototypes: 


A sexl( A w,I zt,SF £1) 
А sex2(A а,А w,I zt,SF f2) 


a and w are the usual array arguments of a verb; zt is the type of the 
result (BOOL, INT, FL, etc.) and £1 and #2 are kernels. sexi and 
sex2 first allocate space for the result, then invoke £1 and £2 
repeatedly with pointers to the arguments and result. 


The definition of an atomic verb is completed by specifying a "cover" 
function which first coerces the arguments to the same type (or to some 
type depending on the arguments), then invokes sexi or sex2 with the 
appropriate result type and kernel. Thus, + is implemented by plus: 


F2 (plus) { 

switch (coerce2 (&a, &w, BOOL) ) ( 
case BOOL: R sex2(a,w,INT ,bplus); 
case INT: R pcvt(INT,sex2 (a,w,FL,iplus)); 
case FL: К sex2(a,w,FL ,dplus); 
сазе CMPX: R sex2(a,w,CMPX, jplus) ; 
default: К 0; 

n 


plus is the function put into the table ps іп file t.c, as described in 
Section 3.1. 
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3.4 Obverses, Identities, and Variants 


Verbs have additional parts — obverse, identity, and variants — which 
can not be not be specified as static data structures. Such information is 
embodied in functions. 


* Obverses 


А verb u is an obverse (usually the inverse) of a verb v if x=u v x for 
a significant subdomain of v. The obverse is used in the conjunctions 
under (в .) and power (^:). For example, exponential ^ and logarithm 
^. are obverses, and: 


34+6.%.4 is ^ (^.3)4^.4 BUS. WS 18e cs 
3*&.^ 4 is ^.(^3)*^ 4 Rei cp dev 


Obverses are produced by the function inv in file ai.c. (inv implements 
^: 1.) The logic is a combination of table look-up and nested branch 
tables (switch-es). 


PRIMITIVES. If the obverse of a primitive verb is itself primitive, the 
information is recorded in the table ps in file t.c. For example, the ID for 
^ 15 СЕХР and that for ^. is CLOG; therefore ps[CEXP].inv is CLOG 
and ps[CLOG].inv is СЕХР. (ps[].inv is zero otherwise.) 


BONDED VERBS. Bonding (Currying) is fixing an argument of a dyad to 
derive а топай: n&v or v&n. Forexample, 10&^. is base-10 log and 
^&0.5 is square root. The obverse of a bonded verb is computed by the 
subfunction invamp in file ai.c, invoked by inv as appropriate. 


PREFIX AND SUFFIX. Sum prefix +/\ and sum suffix +/\. can be expressed 
as pre-multiplication by matrices obtained by applying +/\ and +/\. on 
the identity matrix. The obverse is therefore pre-multiplication by the 
matrix inverse of these matrices. (The actual obverse is a more efficient 
equivalent derived therefrom.) Similar reasoning applies to -, *, and %, 
and to = and ~: on Boolean arguments. The logic is embodied as a sub- 
switch in inv, under case CBSLASH and case CBSDOT. 
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VERBS DERIVED FROM ~. The monad v~ computes у v у. For example, 
+~ is double. The obverses of a few such verbs are implemented by a 
sub-switch in inv, under case CTILDE. 


ASSIGNED OBVERSE. A verb may be assigned an obverse with the obverse 
conjunction (:.). £=.u :. v is like u but its obverse is v. 


OTHER VERBS. inv applies to a few other verbs, including u@v and uév, 
whose obverse are (v inv)@(u inv) and (v inv)&(u inv). 


DEFAULT OBVERSE. Verbs which would otherwise be non-obvertable are 
assigned an obverse %.@:v@(=@i.@#) +/ .* ] (function invdef in 
ai.c). The reasoning is similar to that under PREFIX AND SUFFIX. 


* Identities 


u/y applies the dyad u between the items of y. When y has zero items, 
the result of u/y obtains by applying the identity function of о to y, so- 
called because u/(iu y),y Ог u/y, (iu y) is y fora significant 
subdomain of u. 


Identity functions are computed by the function iden in file ai.c. iden 
behaves like an adverb, applying to verbs and producing verbs. The logic 
is implemented as a branch table (a switch). Not all verbs have identity 
functions; iden signals error in such cases (i.e. in u/'' when u does 
not have an identity). 


* Variants 


Variants of a verb are produced by the fit conjunction (! .), and are used to 
effect tolerant comparison (= < <. <: > >. >: +. * ж. 7:7. =: | 
#: e. i.), formatting to a specific precision (^: and 51:3), shifts (1.), 
and factorial polynomials (^). 


!. is implemented by the function fit in file cf.c. The logic is 
implemented as a branch table (a switch). Not all verbs have variants; 
fit signals error in such cases. 
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3.5 Error Handling 


When an error is encountered in a function, the global variable jerr is 
set to an error number, and zero is returned. Therefore, when calling a 
function that can not have zero as a valid result (but does return a result), 
the returned value must be checked for zero; when calling a “void” 
function or one whose range includes zero, jeze must be inspected. 


Error numbers range between 1 and NEVM, and are referenced by the ev* 
names (“event” names, defined in file j.h). The function jsignal (u.c) 
applies to an error number, sets jerr to this number, and (if the global 
variable еггзее is 1) displays the appropriate error message; jsignal 
exits immediately if jerr is already nonzero. qevm is a list of the error 
messages. These messages are initialized in function jinit2 (i.c), and 
may be inspected and changed by the user through 9!:8 and 91:9. 


The macro ASSERT (j.h) is used extensively in argument validation. It 
applies to a proposition and an error number. For example, the following 
statements check whether w is a literal atom: 


ASSERT (!AR(w),EVRANK) ; 
ASSERT (CHARGAT (ж), EVDOMAIN) ; 


If the proposition is nonzero, execution proceeds to the next statement; 
otherwise, the indicated error is jsignal-ed and a zero is returned. The 
macros RZ and mE (j.h) are used in function calls. nz returns zero if its 
argument is zero; RE evaluates its argument, and returns zero if jerr is 
nonzero. For example, the function iota (implementing the monad i.) 
uses RZ to check the results of functions that it calls, as follows: 


Fl(iota) (А z;I m,n, *v; 
FIRANEK (1, iota, 0) ; 
RZ (wevi (w) ) ; 
П=АМ (м); v=AV (w); m=prod(n,v) ; 
RZ (z=reshape (mag (w) , apv (ABS (m) , 0L, 1L) ) ) ; 
DO(n*!!m, if (0>v(i])RZ(z=ranklex(z,0L,n-i, reverse) );); 
Rz 
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The arguments of a function may be the result of another function; the 
convention is that a function checks its arguments for zero and returns 
zero immediately in such cases. Thus, in iota above: 


RZ (z=reshape (mag (w) , apv (ABS (m) , 0L, 11))) ; 


If reshape did not check for zero arguments, the statement would have 
10 be elaborated: 


RZ (tO=mag (w)) ; 
RZ (tl=apv (ABS (m) , OL, 1L) ) ; 
RZ (z=reshape (t0,t1)); 


A conventional function is a function that follows the conventions 
described herein — return zero on zero arguments and on errors. The data 
type АЕ (jt.h) typifies a conventional function. Most functions in the 
system are conventional; in particular, all functions implementing 
primitives are conventional. Expressions and statements that use only 
conventional functions need not employ Rz or RE, and the resulting 
programs are neater. For example, consider the functions 1amini and 
lamin2 (vs.c), implementing laminate (; .): 


Fl(laminl)(R reshape (over (опе, shape (w)), w); } 
F2(lamin2) (RZ(a&&w); R over(AR(a)?laminl(a):a, 
AR (м) ?laminl(w) :AR(a)?w:table(w));] 


lamin2 must check for zero arguments RZ(a&&w), because it applies the 
unconventional macro AR to the arguments. In contrast, laminl applies 
only conventional functions to its argument and to results of conventional 
functions on that argument. 
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4. Adverbs and Conjunctions 


An adverb is monadic, applying to a noun or verb argument on its left; а 
conjunction is dyadic, applying to noun ог verb arguments on its left and 
right. The result is usually a verb, but can also be a noun, adverb, or 
conjunction. 


The conjunction & is used here to illustrate the relationship between 
relevant system components. (The implementation of adverbs is similar.) 
Recall that & derives a verb depending on whether the arguments are 
nouns (m and n) or verbs (u and v): 


mán undefined 

mev mv y iS mv y 

usn usn yisyun 

u&v u&v y i$ u v y; x обу y is (v x)u(v y) 


A verb derived from & is (internally) an array of type veres whose value 
is interpreted according to the data type v, defined in file jth as follows: 


typedef struct {АЕ £1,£2;A f,g,h;I mr,lr,rr;:C id;) V; 


£1 monad mr monadic rank 
£2 dyad lr left dyadic rank 
f leftconj. or adverb argument rr right dyadic rank 
g right conj. argument id identification 


h auxiliary argument 


If #п=.%.81:, the internal array for fn is: 


-[ 


Е 
lr rr id 
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Access to fields in £n is by name and by macros defined in jth and a.h, 
and never by offsets and indices. Thus, Av(£n) points to the “value” of 
fn; andif v=(v*)av(£n), then v->£1 is onl; v->£2 is on2; v->£ is 
the array for $.; v-»g is the array for |: (thatis, v->£ and v-»g are 
arrays similar to fn); v-»mr is _ (indicating that ға has infinite 
monadic rank); and so on. The macro vav(£) — ((V*)AV(£)) — is 
useful for working with adverbs and conjunctions. 


To introduce & into the system, functions which implement & are added 
10 file c.c (or to one of several c*.c files), and declarations of global 
Objects are added to file je.h: 


FILE С.С: 


static DFl(withl) (DECLFG; R g2(fs,w,g$);:) 
static DFl(withr) (DECLFG; R f2(w,gs,fs);} 
static CSl(onl, fl(gl(w,gs),fs)) 

static CS2(on2, #2 (91 (а,93),91(м,93), з) } 


F2 (amp) { 
RZ(a&&w); 
switch (CONJCASE (a, w) ) { 
case NN: ASSERT (0, EVDOMAIN) ; 
с NV: R CDERIV(CAMP, withl, 0L, RMAXL, RMAXL, RMAXL) ; 
case VN: R CDERIV (САМР, withr, 0L, RMAXL, RMAXL, RMAXL) ; 
case VV: R CDERIV(CAMP,on1,on2,mr (м) mr (м) ,mr (w)): 
n 


FILE je.h: 


extern А amp(); 


Corresponding to the four possibilities, amp defines four cases, which 
either signal error or return a verb; the functions withl, withr, onl, and 
on2 are invoked when a verb derived from & is applied. For example, 
$.&|: m=.74 4$100 first branches to the case УУ in amp, and 
subsequently applies on1 to m Consider a partial macro expansion of 
оп1 and the values of its local variables for this example: 


Chapter 4 29 Adverbs and Conjs 


MACRO EXPANSION: 
static A onl(w,self)A м, self; (PROLOG; V*v-VAV (self) ; 
A fs-v-»f; AF f1=fs?VAV(fs)->£1:0, f2-fs?VAV(fs)-»f2:0; 
A gs=v->g; AF gl=gs?VAV(gs)->£1:0, g2-gs?VAV(gs)-»f2:0; 


PREF1(on1) ; 
z-fli(gl(w,gs),fs): 
EPILOG(z): 
) 
LOCAL VARIABLES: 
+ m 
self fn above 
v pointer to the value part of the array fn 
fs s. fi monadof s. £2 dyad of s. 
gs |: gi monadof |: g2 dyadof |: 


The initialization of v, £s, £1, and so on are the same for all adverbs and 
conjunctions. (The details of such initialization are normally suppressed 
by the use of macros.) If an argument to & (i.e. £s or gs) is itself a 
result of adverbs and conjunctions, expressions such as g1(w,gs) or 

£1 (xx, £s) engender further executions as occurs in on1. The macro 
PREF1 implements rank (see 3.2 Rank), and the macros PROLOG and 
EPILOG manage memory (see 2.3 Memory Management). 


The association between & and amp is established in the tables ps and 

psptr in file t.c. psptr[x] is the index of the entry in ps for byte value 
x. ThelDfor & is camp (defined in file jc.h; see 1.1 Word Formation), 
50 ps [psptr[CAMP]] contains the information for &: 


/* 38 26 & CAMP */ {CONJ, 0, amp, 0, 0, 0, 0 }, 


The entry specifies that & is a conjunction and has monad 0 (none), dyad 
amp, ranks 0, and inverse 0 (none). The information in ps and psptr 
are used by the utility аз ("define symbol") in file au.c. ds applies to an 
ID, and produces the corresponding primitive. Thus, ds(CAMP) is &. 
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The utilities aci and ас2 in file au.c enable non-primitive functions 
(those nor put into ps and psptr) to participate in phrases involving 
adverbs and conjunctions. Suppose £1 and £2 are functions which 
apply to array arguments and return array results. That is, the prototypes 
of £1 and #2 are: 


А f1(A w); 
A #2(А а, A w); 


Then aci(f1) is а monadic verb and ac2 (£2) is a dyadic verb, and are 
in the domain of adverbs and conjunctions. These verbs have infinite 
ranks; other ranks can be specified through the function qq (which 
implements "). Thus, qq(ac1(£1),sc(1L)) is a verb with rank 1. An 
ambivalent verb obtains by a further application of the function colon 
(which implements :) Thus: colon (acl (£1) ,ac2 (£2)) is a verb whose 
monad is ac1(f1) and whose dyad is ас2 (£2). 


The utilities a£1 and а#2 in file au.c apply the топай or the dyad of a 
verb. For example, 


ағ1 (w, ds (CPOUND) ) 

d£l( w, amp {ds (CPOUND) , ds (COPE) ) ) 
d£2 (a, w, amp (ds (CPOUND) , ds (COPE) ) ) 
d£1(w,qq(acl (£1) , sc (11) )) 


The phrase ds (CPOUND) is the verb #, ds (СОРЕ) is the verb >, and 
amp (ds (CPOUND) , ds (COPE) ) is #&>; the examples compute #w, #6>w, 
a#s>w, and £1 on the lists of м. Finally, d£1(w,ac1(f1)) is 
equivalent to £1(w), and d£2(a,w, ac2 (#2) ) is equivalent to £2(a,w). 
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5. Representation 


5.1 Atomic Representation 


5!:1 is a verb that applies to a boxed name, and produces the atomic 
representation of ће named object. Gerunds (results of the ` 
conjunction) are arrays of atomic representations. The adverb 5!:0 
defines an object from its representation. 


The atomic representation is a boxed list of two boxes: 


noun ID value 

verb ID arguments 
adverb ID arguments 
conjunction ID arguments 


The ID is a string computed by the function spellout in file w.c. Fora 
primitive with an assigned word (for example * or /.), the ID is simply 
that word; for those without, the ID is one of the following: 


‘or noun 

"cz hook 

igi fork 

a bonded conjunction 

‘5! 2-element a-train or c-train 
6! 3-element a-train or c-train 


The "value" in the representation of a noun is just the noun itself; 
arguments in the representation of a verb, adverb, or conjunction are 
themselves atomic representations. If an object is uniquely identified by 
the ID alone, then the second field is elided, and the representation is the 
boxed ID alone. 


The following examples illustrate atomic representation: 
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аг <'а' 


w 
ш 
So 
[x AB 
| " 
Ul i 
5 + 
4 
ЕЧ 
æ 
ж 
= 


5.2 Display Representation 


51:2 is a verb that applies to a boxed name, and produces the display 
representation of the named object. (This is what is displayed if the result 
of an input line is a verb, adverb, or conjunction.) The representation can 
be modelled as follows: 


ar =, 51:1 

type ‚3:0 

boxed 32&-8type 

oarg =. »8(1&() 

root =. («1 0)&C.0,^] 8. (e.&(,&.»'0123456789')8[) 


dpx =. (.xoot dp&.>@oarg 
dpgl =. (.root (dpx&.»8(. , dp &.>@)}.)@oarg 
dpgr =. (.root (dp &.>8{. , dpx&.»8).)8oarg 


dpg =. dpgr'dpgl'dpx @. (i.6(<,'*') @oarg) 
dptil =. dpx` (oarg@>@{.Boarg) 8. ((<,'0')&=@{.@>8{.@oarg) 
dpcase =. oarg'dpgl'dpgl'dpg' dptil'dpx 8. 

((60:'00.^ :4-') 8i.0(. ) 
dp =. ]'dpcase 8. boxed 


display =. ,8«" [8.boxed @ dp @ > ё ar 


display «'display' 


E: @|аг 


8. |boxed 
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The model is divided into groups of verbs. The first group are utilities: 


ar atomic representation 

type type 

boxed lif boxed 

oarg open the second element of the list argument 


root produces an infix representation from a root x and its list of 
arguments а. If r isa digit, it denotes a primitive without an assigned 
word (e.g. '3' denotes a fork; see 5.1 Atomic Representation), and the 
result of root is a; otherwise, г root a produces: 


a,r one argument 
({.а), r, (}.a) two arguments 
r no arguments (primitive) 


The verbs named with the ap prefix apply to the opened atomic 
representation, and embody logic to effect “пісе” displays for various 
special cases. The agenda items in dpcase are: 


ID AGENDA 

0 oarg noun (leaf) 

8. dpgl  gerundial left subtree 

D dpgl  gerundialleft subtree 

4 dpg bonded conjunction; gerundial left or right subtree 
~ dptil possible instance of evoke 

other dpx none of the above 


display isa model of 5!:2. 
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5.3 String Representation 


51:3 is a verb that applies to a boxed name, and produces a literal list of 
the string representation of the named object. The representation 
conforms to the Workspace Interchange Standard (Bernecky et al. [1981]), 
and facilitates exchange of data and programs between disparate systems. 


sr =. 51:3 
str =. 'Cogito, ergo sum.’ 
sr «'str' 


27cstr 1 17 Cogito, ergo sum. 


1 ces =. ;: str 


Cogíto|, |ergo|sum. 


sr <'сез' 
60xbces 1 4 13c- 1 6 Cogito8c- 1 1 ‚11с- 1 4 ergollc- 1 
4sum. 


sum =, +/ 
sr <'sum' 
38xvsum 1 2 8c- 1 1 /17xb- 1 1 8c- 11+ 


The string representation is the catenation of the following parts: 


length Digits representing the length of the representation (excluding 
the length itself). 


type One or two letters denoting the type of object 
c literal (character) array 
n numeric array 
xb boxed array 
xv verb 
xa adverb 
xc conjunction 
The representation of a verb, adverb, or conjunction is the 
representation of its opened atomic representation. 


name The name of the object, or - if anonymous. 
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blank A single blank. 
rank Digits representing the rank, 
blank A single blank. 


Shape Digits and blanks representing the shape, terminating in a 
blank. 


elements The ravelled elements. For a literal or numeric array, this is the 
display of the ravelled array; for a boxed array (hence for a 
verb, adverb, or conjunction), the elements themselves are 
recursively so represented. 


String representation can be modelled by the following verbs: 


ar =. 51:1 

=. 31:0 

32&=@суре 

nc =. 41:0 
at >@{{&(;:'п c n n n xb'))8(12 4 8 16 326i.) асура 
rs =. (5 VaQ)eG 8! ')@":@{5@$,$) 
elem =. (":8,)' (; € ("-' &sn& .2"1) 0, ) 8. boxed 
зп =. G- ":@#) 8 (nt@],>@[, (zs, elem) êj) 


{°х'&,@({4' — vac')8nc)" (ntà".8»)8. (28=@пс) 
. (»8ar)' (".&>)@. (2&-8nc) 

).7 »:8(«./)8(i.&'cnb') 

(7 ":@#) 8 (st , ] upfx@sn val) 


The first group are utilities: 


ar atomic representation 
type type 

boxed lif boxed 

nc name class 


nt computes the rype part of the representation for a noun; the result is n, 
€, ог xb, depending on whether the argument is numeric, literal, or boxed. 
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rs computes rank and shape; rs y is ' ',(":{($$у}),$у),' ', the 
formatted result of the rank and shape, surrounded by blanks. 


elem computes elements. If the argument y is open, this is simply ":, y, 
the format of the ravel of y; if boxed, it is the catenation of the 
representations of the boxed elements. 


sn computes the representation of a noun whose boxed name is the left 
argument, and whose value is the right argument. The parts of the 
representation correspond to readily identifiable phrases in the definition: 
length, ":0%; type, nt; name, »8[; rank and shape, кз; and elements, 
elem. 


st computes the гуре part of the representation. The argument is a boxed 
name; the result is n, c, xb, xv, xa, OT xc, according on whether the 
named object is numeric, literal, boxed, verb, adverb, or conjunction. 


val computes the value to be represented, given a boxed name. If the 
named object is a noun, the value is simply the noun itself (execute the 
open of the boxed name); otherwise it is the opened atomic representation. 
upfx, "unprefix", drops the length and гуре parts of the representation of 
а noun. The amount to be dropped is one plus the minimum index of c, 


n, Or b in the argument. 


sr isa model of 5!:3. 


Chapter 5 38 Representation 


5.4 Tree Representation 


51:4 isa verb that applies to a boxed name, and produces a literal table of 
the tree representation of the named object. 


tree =. connect @ > @ (,.&.>/) 8 (> (xoot;]) tr@>@ar) 
51:4 <'tree’ 


[- connect 
> 
tue mr 
Ly—s. > 
— tree — 8 ~ г> 
m root 
к}! 
p- tr 
КР quc ENS 
e —-ar 
ar =. 51:1 
type =. 31:0 
boxed =. 32&-6type 
mt =. 0&e.8$ 
oarg =. >8(1() 
shr =. 1. 
shl =. 1г(.!.'') 
mat =. (1 16}.)@(_1 _1&}.)@":@< 
boxc =. 9!':6 '' 
dash =. 10{boxe 
extent =. (*./N ж. +./\.) 8 (' '&-:) @: (4.72) 
limbi =. 1&|.0$ 1&-: ). (10 6 O{boxc) &, @ ($ (9(boxc) ) 
limb =. -6(i.s1)8[ |. #@[ (. limb18] 


pfx =, (limb +/)@extent ,. ] 
pad =. {4.] ,. dash&-z8((:"1)80] ( ' '&,:8($&5dash)8(-&(:$) 


take =. pad’ ((.&G.* ')@[) @. (mtel) 
rc =. #@>@{."1 ; >./@:({:@$@>) 
kernt =. (0(Бохс) &=ёзһ1ё[ *. ' '&-:@] 
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kernb 
kern 
gap 
graft 


lab 
label 
center 
root 


leaf 


trx 
trgl 
trgr 
trg 
trtil 


trcase 


tr 


rep 
right 
cross 
left 
bot 
connect 


tree 


(6(boxc)&-8] *. ' '&~:@shl@[ 
(«0 0)&{&>"2 (kernt+./"1@:+.kernb) (< 1 0)&{&>"2 


. ok." 1 (&((0 1$' ');1 1$' ")ükern 


{рЁх&.>@{.}]) 8 (,&.2/) @ gap 8 ({@гс takes.> ]) 


>r: 8 (26].) 8 ((' ',dash,dash," ')&,) 
- lab'((,.dash)&[) 8. (e.6'0123456789'8(.) 


(44.&1) -8* <.й-:@(+/))@] |. #8] (. Т 


- label8[ center extent8»8(.8] 


. ,8«G(((,:dash,' ')&[ center $518) ,. 1) ёпа+ё": 


. »8(. (root ; ]) graft@: (tr8»)8oarg 


=. »8(. (root ; ]) graft@: (trx@>@{. , tr @>@}.)@oarg 


н 


. >@{. (root ; ]) graft8:(tr @>@{. , trx@>@).)@oarg 
. trgr'trgl'trx 8. (1.6 (<, '`') доагд) 
. trx' (1еа#ёоагде>е {.ёоаго) 8. 


((<, '0') &=@{.@>8{. @oarg) 
(leaf8oarg) trgl'trgl'trg'trtil'trx 8. 
(6:'08.7 :4-') 6. 8(.) 


. leaf'trcase 8. boxed 


Г.а (CC 3.00, 8) (01) )) 

(5 (Ьохс) rep (e.&(9(boxc) *. shr"18(e.&dash)) 
{4{boxc) rep (e.&(5(boxc) *. shl"18(e.&dash)) 
{3{boxc) rep (e.&(9(boxc) *. shl"18(e.&dash)) 
{7{boxc) rep (e.&(6(boxc) *. shr"18(e.&dash)) 


ж ж 


. bot @ left @ cross 8 right 


. Connect 8 > 8 (,.&.>/) @ (> (root;]) tr@>@ar) 


The model is divided into groups of definitions (which are verbs unless 
indicated otherwise). The first group are utilities: 


ar 
type 
boxed 


atomic representation 


type 
lif boxed 
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mt lifempty 


oarg open the second element of the list argument 

shr shift right 

shl shift left 

mat a literal matrix image of the argument 

boxc (noun) box drawing characters 

dash (noun) the “dash” in the set of box drawing characters 


A "generational tree" (GT) is a list of boxed literal tables having the same 
number of rows, such that nodes at the same depth are in the same box, 
For example, the GT for tzee is: 


C connect 
gs 


> 
me- mE 
00| а. |> 
- tree -|- e > 
Е“ 
1 
[tr 
@ к=, 
a -|C az 
weak І 


graft is the main verb in the next group. The argument is а table whose 
tows are GTs for the nodes at the same depth. The result is a GT. 


xoot accepts a string left argument and a GT right argument. The result 
is a literal matrix with the string centered relative to the GT. 


leaf computes a unitary (single-element) GT from its argument, 
tr applies to the opened atomic representation of an object and produces 


а GT. The verbs named with the tr prefix embody logic to effect "nice" 
displays for various special cases. The agenda items in trcase are: 
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ID AGENDA 

0 leafüoarg noun (leaf) 

8. trgl gerundial left subtree 

Bid trgl gerundial left subtree 

4 trg bonded conjunction; gerund left or right 
~ trtil possible instance of evoke 

other trx none of the above 


rep i$ a conjunction whose left argument is a single literal с and whose 
right argument is a proposition p, deriving a verb such that the phrase 

c rep p y replaces with c the positions in y marked by p y. 
connect substitutes 1 (bot), | (left), + (cross) and j (right) at 
nexuses of the tree. 


tree isa model of 5!:4. 
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6. Display 


If the last operation in a line of user input is not assignment, the result of 
the line is displayed. More specifically, if the global variable asgn is 
zero at the end of executing an input line, and the line had no errors, jpr 
is invoked to display the result. 3pr first applies thorn1 (ће monad 
":) to compute the display of y, then writes the lines to the screen. 


In all cases, the display of an object is a literal array. The display of a 
literal array is itself. The display of a verb, adverb, or conjunction is that 
of its display representation 5!:2 (a boxed array; see Section 5.2). The 
display of a numeric array is discussed in Section 6.1; that of a boxed 
array, in Section 6.2; and format (the dyad ":) is discussed in Section 6.3. 


Display is implemented by functions and variables in file f.c. 
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6.1 Numeric Display 


The display of a numeric апау у is a literal array having the same rank as 
y (butat least one), such that the shape of ":y matches the shape of y in 
all but the last axis. Columns are right-justified and are separated by one 

space. The conversion from numeric to literal can be modelled as follows: 


sprintf 


type 
real 


imag 


minus =. $&'_'@('-'=@{.) 

=, >@({&(<:._1' _ __. _.'))@('1їпМ'&1.@{.) 
minus , (4.&0@{е.&'-+0') ). 1) 

efmt =. »:8(i.&'e') ([.,afte8).) ] 

finite =. ]'efmt8.('e'&e.) 

massage =. finite'ubar8.(e.&'iInN'G(.) 

fmtD =. (minus,massage@(e.é'-+'@{. }. ])) 8 sprintf 


fmtB =. (&'Ol1' 
fmtI =. sprintf 
fmtz =. fmtD@real , 'j'&,8fmtDRimag 
fmt =. (fmtB&.») (fmtI&.»)' (fmtD&.»)" (fmtz&.») 8. 
(1 4 86i.@type) 


эһ =. (5/80):, C0 (16,))8$ ($,) 1 
width (<:@{. 0) 1)@>:@(>./) @sh@: (#6>) 
th 2. (-8width ;@:({.&.>)"1 ]) @ fmt 


The model is divided into groups of verbs. The first group are utilities: 


sprintf a function in the C library 

type type 

real the real part of a complex number 

imag the imaginary part of a complex number 
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fmtD formats a real number. Its constituents transform the result of 
sprintf to follow J conventions in the treatment of negative signs 
(minus), exponential notation (efmt and afte), and infinities and 
indeterminates (ubar). 


fmt formats a numeric array into an array of boxed strings. It invokes 
formatters specialized for the different types: fmtB (Boolean), fmtr 
(integer), £mtp (floating point), and fmtz (complex). 


sh shapes an array into а table having the same number of rows. width 


computes the maximum width in each column of an array of boxed 
strings. th isa model of ": on numeric arrays. 
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6.2 Boxed Display 


The display of a boxed array b isa literal array d=.":b such that: 
* The rank of а is the greater of 2 or the rank of b. 
+ Excluding the last two axes, the shape of a matches the shape of b. 
* The frame (formed by гт HH LLH |—) is the same in all the planes. 


Boxed display can be modelled as follows: 


topleft 
inside 
take 
frame 


rc 


thornl 
thbox 


. 31:0 


32&= 8 type 
0&e.8$ 

91:6 '' 

2 O{boxc 


. 1 10{boxe 
. 8 6[boxc 
. 7 10(boxc 


(5/0): , ())88,)0$ $, 
*/N.0):8$ 


- }.@(,&0)@(+/)@(0&=)@(1/ 4.@{.@(,&1)) 


=. 1&,. #4, ‚.&0@>:@1.@# 


. mask@bl@rows ( ' '&,@sh 


‚ ,8(18,.)8[ }.@# +:@#@[ $ ] 
. edge&(3 9(boxc)8»e(0&()8[ , "0 1} 
. edge&(5 9(boxc)8»8(0&()8[ ,~"0 1 ] 


1&|.8(tcorn&,)8(edge&tint)8»8 (1&()8[ ,"2 1 
1&|.8(bcorn&,)8(edge&bint)8»8 (1&()8[ ,"2- ] 
[ top [ bot [ left [ right ] 


(4(boxc)&(0)) @ (( 2(boxc)&,.) @ (( 1(boxc)&, 


. 11&). 8 ; @: (,.6.»/"1) 8: (topleft&.») 


LC D O&' ')@.ш<@] 
Г perim (8[ inside: (take&.»)"2 ] 
(»./8shs.») 8: (,.8]:"20:(0&("1);:1&("1) 8: ($&») 


. "i> thbox 8. boxed 


(rc frame ]) 8: (matéthornl&.») 
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The model is divided into groups of definitions (which are verbs unless 
indicated otherwise). The first group are utilities: 


type туре 

boxed 1 if boxed 

mt lif empty 

boxc (noun) box drawing characters 
tcorn (noun) the characters ү г 
tint (noun) the characters т — 
beorn (noun) the characters ! t 
bint (noun) the characters 1 — 


mat isthe main verb of the next group of definitions. The argument is a 
literal array; the result is a literal matrix image of the array — a literal 
table that “looks like" the argument array. 


perim draws a perimeter around each plane of the right argument: 
According to the information in the left argument (a result of rc), perim 
puts; r r — (top, ^ LL- (bot), || (left) or 1| (sight) at 
appropriate positions on the perimeter of each plane. 


topleft catenates the characters + | — on the top and left edges of a 
literal table. inside produces the inside (excluding perimeter) of a plane 
of the display. take is (. if the right argument is non-empty, and is an 
array of blanks otherwise. frame applies to an array of boxed tabular 
displays, and computes the overall display. re computes the number of 
rows and columns in the display of the atoms in a plane. 


thornl models ":; thbox models ": ona boxed array. 


The following examples illustrate the inner workings of the model: 


y 7.(i.2 3);'abc'; (4.4 1); («2 2$'ussr');12;4*5.5i.2 2 3 
y =. 2 3$y 
x-.matüth&.»y 
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$5.»x rcx irc x 


2 5|1 3j4 1 RE 45/43 49 


4 4|12|11 9 11 5/21 3/11 9 


a =. 2 3 4$'abcdefghijklmopqrstuvwx' 


a mat a $a 
abcd abcd 234 
efgh efgh 
ijkl ijkl $ mat a 
74 
mnop mnop 
qrst qrst 
уук. uvwx 
topleft 3 4$'a' (2 3;4 5) perim 6 10$'a' 
aaaa 
aaaa 
aaaa 
t=. {сс x)inside@: (take&.>)"2 x (rc x) perim t 
t 
0 1 2|abc|0 0 1 2|арс|о 
345 1 345 1 
2 2 
3 3 
12 12 
us 01 |2 us 
sr 1 sr 
ы 2|3 |5 3|4 |5 
67 |8 6|7 |8 
9110111 9 [10111 
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6.3 Formatted Display 


x":y isa literal representation of y specified by x. Positive elements of 
x specify fixed-point notation, while negative elements specify 
exponential notation. The left and right ranks are one; that is, lists in the 
arguments are independently formatted. The computation can be 
modelled as follows: 


fmtexp =. {&'++-'@* , _3ь(.@('00'в,)@":@| 


сехр =. >:@(4.&'е') ((. , ©шбехр@".@}.) ] 
eminus =. '-'&((e.&' ' # i.08)81)) 
larg =. (* 20&*8(0&-))8-8(15])8]87.Q(-.&' Se") 


nsprintf =. largü[ cexp@eminus@": J 
psprintf =. ^.8(-.&' %#')@[ ($&' 'Q(0&-)8«.8[ , cminuse":) ] 


sprintf =. nsprintf'psprintf.('f'&e.8[) 

ма =. <.@| 

npstr =. ' $- '&,8(,&'e') 8(0.1&":)8 (-C1&X) 8| 
ppstr =. *Owd ). ' $'&,8(,&'f')8(0.1&":) 

pstr =. npstr'ppstrü.(0&«:) 

jexp =. »:8(i.&'e') ({. , ":0".8(-.&' *')8).) ] 
jminus =. ' '&((e.&'-' # 1.@#)@}}) 

stars =. 174.0. (ep ($a'*'ap a. (есж, (<#)) 

c2j =. stars ]' jexpé.('e'&e.)Gjminus 

lb =. (0&=@ма *. 0&«:)8(. 


thcell =. (wdé[ <@c2j pstr8[ sprintf ]) "0 
thorn2 =. (1Ь@[ ). ;@:thcell) " 1 


The model is divided into groups of verbs. 
sprintf is a limited model of sprint£ in the C library, applying to a 


string containing a single $e or $£ conversion specification and to a 
single number. Thus, if embrace=.('{'s,)@(,4'}'), then: 
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embrace ' %0.3f' sprintf ^5 r 
embrace '$9.3f' sprintf ^ 5 t 
embrace ' &- 0.3e' sprintf ^ 5 {£ 6.738e-003) 
embrace ' $- 9.3e' sprintf -^5 t 
embrace ' %- 6.3e' sprintf -^5 { 


148.13} 
0.007} 


-1.484е+002} 
-6.738e-003} 


pstr applies to the left argument of “: and produces the necessary left 
argument to sprintf. For example: 


x embrace pstr x 
142 { $- 11.0e) 
л.з { %- 6.3e) 
0.3 { % 0.3e) 

° { 30.0£) 

0.3 { 80.3£) 

7.3 (97.3) 

12 (912.0) 


c2j and its constituents transform the result of sprintf to follow J 
conventions, in the treatment of negative signs (jminus), exponential 
notation (jexp), and overflow (stars). 


thorn2 is а model of the dyad ":. It works by applying thcell to 
corresponding atoms of the arguments, producing a list of boxes; the 
leading blank of the razed result is then dropped or not, according to the 
value of 1b on left argument. 
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7. Comparatives 


Comparisons between finite numbers are tolerant, as defined in Bernecky 
[1977]: 


x-y if (|х-у) <:!.0 qct * (1x)>. (у) 


(<:!.0 means exact less than or equal.) That is, x and y are tolerantly 
equal if the smaller is on or within the circle centered at the larger, having 
radius qct. times the magnitude of the larger. qct, comparison tolerance, 
is a real number between 0 and 2^ 34 with a default value of 2^ 44; a 
non-default tolerance may be specified using the fit conjunction (!.). 
Tolerant relations can be modelled as follows: 


teq =. |8- «:!.0 qcts*8».&| in file utc 
tlt =. -: ш.с 
tle =. ‚= шс 
tfloor =. - -.8tle) ] ut.c 
tceil =. + tlt) 1 utc 
dsignum =. qct&<@| * 0&< - 06> ve.c 
jsignum =. qot&«8| * (9|) ve.c 


teq, tlt, and tle model tolerant equal, less than, and less than or 
equal. tfloor and tceil model tolerant floor and ceiling. dsignum 
computes the tolerant signum of a real number; jsignum that of a 
complex number. 


Additionally, some comparisons internal to the system are fuzzy. Fuzzy 
comparisons are like tolerant comparisons, but depend on the parameter 
qfuzz, having fixed value 2^ 44. Such comparisons are used to decide 
whether arguments are in the domain of certain verbs; for example, (2 3 
+1е_14) $'арс' is valid but (2 341e 12)$'abc' is not. Fuzzy 
comparisons can be modelled as follows: 
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int =. (-2^31)&«: *. «&(2^31) 


real =. (.84."0 

feq =. |@- «:!.0 qfuzz&*8».&| in file шс 
freal =. »:!.0/R((qfuzz, 1) &*) /G|8*. ш.с 
BfromD =. ]' (1&-)8»(feq 1&=) кс 
IfromD =. 1`<.@.(іпє *. (#еч<.)) кс 
DfromZ =. ]'real 8. (feq real) k.c 


The utility int tests for membership in the interval -2^31 to _1+2^31 
inclusive. real produces the real part of a complex number. feq is 1 if 
its real arguments are equal within fuzz; £real is | if its complex 
argument is within fuzz of real. Bfromp, Ifromp, and Dfromz convert 
between types: boolean from real (“double”), integer from real, and real 
from complex. 
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8. Primitives 


This chapter describes the primitives. Each entry has the spelling, class, 
program file, C object name, and notes on the implementation. The notes 
are mostly in the form of models written in J; the models are not 
necessarily optimal but are presented here because they are close to the 
implementation. The entries are ordered as in the dictionary, an order also 
shown in Appendix F on the back cover. 


The following conventions and definitions apply: 


Adverb 

Conjunction 

Left noun argument to an adverb or a conjunction 
Right noun argument to a conjunction 

Left verb argument to an adverb or a conjunction 
Right verb argument to a conjunction 


т, 3.14159265358979... 

Comparison tolerance (default: 2^_44) 

Random link (initial value: 7^5) 

An adverb that produces the ranks of its verb argument. 
For example, &.xx is 2 _ 2 


#@$ Капк 
0&е.@$ lif empty 
[m The identity adverb 
. 31:0 Type 
+ 16&-8type lif complex 
. 32&-8type lif boxed 
1`1`+@.(*@])"0 n pind i are integers in i.n 


[ ((4.@{-.]) , 1) pind 
n pfill p converts р to a permutation of order п іп ће 
standard form; ie. (i.n) -: /:- n pfill p 
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monad урс  sclass =. (0(1.6#=1) #1) =/ 1)8, 8(i.7) 


dyad vbc eq 
For atoms x and y, x=y islif x equals y; tolerant equality 
1@- «:!.0 qct&*&».&| is used for numeric arguments. See 7 
Comparatives and 3.3 Atomic Verbs. 

pc isl See 1.4 Name Resolution. 


рс isg See 1.4 Name Resolution. 


monad ус box 


<y has the following properties: 


0 = rank «y atomic 

у -: xy open is the inverse of box 
y =: <y Бох у differs from у 

32 = type <у the type is encoded as 32 
dyad. vbc 1t =. <!.0 ж. ~: 


. monad vec  floori 


«4.0 NB. a function in the C library 
(0 - <) £ioor8(0.5&*) 
. floor&*. 
inc =. (1&<:@{+/) * 1 0&=@(>:!.0/)) 8 (+. - z£1) 
zfloor =. zfl j./8:* inc 


floorl 


0 


dfloor'zfloor @. complex " 0 " _ 


See also 3.3 Aromic Verbs. 


. dyad vec minimum See 3.3 Atomic Verbs. 
: monad ve.c decrem =. -61 
: dyad vbc le =. <:11.0 +. = 
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monad v.c ope 


mrk »./8: (rank8») 
crk =. mrk (-@[{.$&1@(,$@])5&.> ] 
crank =. crk ($,)&.> ] 


+ >./@:($@>) 

. «émsh {.&.> ] 

»./8: ((type*-. amt) 8») 

»8((&(* ';(<$0);0))@(2 326i.) 

(msh «8$ fillémtp) (]'[8. (mt8]))&.» ] 
. > 8 cshape 8 ctype 8 crank 


See Section П.В of the dictionary. 


dyad vbc gt =. AK: 
. monad уес ceill =. <.&.- 
. dyad ve.c maximum =. €«.8. 
: monad мес  increm =. 15+ 
: dyad vb.c ge =, -.0€ 
noun w.c  coninf See 1.1 Word Formation. 
. noun w.c  coninf See 1.1 Word Formation. 


: monad ус infl E cM 


: dyad V.C — inf2 =, _"_ 
monad vec conjug See 3.3 Atomic Verbs. 
dyad vec plus See 3.3 Atomic Verbs. 
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res =. (dr (*/8(. 


. monad утс rect =. 9 1160."0"_ 
. dyad vec ged See 3.3 Atomic Verbs. 
: monad vec duble =. + 
: dyad vb.c пог =. -.@+. 
monad уес signum =. (4|) * >!.0&чс®@| 
dyad vec  tymes See 3.3 Atomic Verbs. 
. monad утс polar =. 10 12&0."0" 
. dyad vec lem See 3.3 Atomic Verbs. 
: monad ve.c square =. *- 
: dyad vbc лара =. -.8* 
monad vec negate =. 06- 
dyad ve.c minus See 3.3 Atomic Verbs. 
. monad ve.c not =. 14- 
‚ dyad у.с їезз 
dr =, rank8] - 0&>.@<:@гапк@([ 


‚ ).) $8) $ ‚@] 


less =. ['((( ~.@e. res) # [)@. ((<: >:) ёгапк) 


: monad — ve.c 


Chapter 8 


halve 


=. %&2 
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: dyad vb.c match 


x -: y if 
-:&(#@,) numbers of elements match; and 
7:&rank ranks match; and 

-:8$ shapes match; and 

*./8(7&,) corresponding atoms match 

monad ve.c recip =. 16% 

dyad ve.c divide See 3.3 Atomic Verbs. 


. monad vic тіпу 


miny has two main constituents: qr computes the QR 
decomposition; rinv computes the inverse of a square upper 
triangular matrix. 


pdt =.+/.х+* 

en =. 1&{@(,&1 1)@$ 
0$'' 
"п 7, en y.’ 
"m =. >.-: n° 


‘a0 =. щ{."1у.' 
tal =. ю}."1у.' 


"t0 =. qr a0! 
"90 =. »8(. t0" 
"r0 =. >@{: to’ 
"с =. (+1:90) pdt al! 


"tl =. qr al - q0 pdt c' 
‘ql =. >61. t1! 
‘el =. >@{: t1! 
t-.t, '(q0,.q1); (r0, .¢), (-n) (."1 rl! 


92 =. E 
norm =. (*:8pdt +)@, 
qr =. q2`((% ;&,. ‚-@еп@[ $ ]) norm) 8. (1&»:8en) 
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.0 0$'' 


Ox, "nom. fy." 

ож, 'm =. >.-: at 

x, 'ai =. rinv (m,m)(.y.' 
"а =. rinv (m,m)).y." 

Ox, 'b =. (mom-n)(.y." 


.x, ‘bx =. - аі pdt b pdt di' 
.x, '(ai,.bx), (-n)(."1 di’ 
ME Wo 


Bee 
х 


riny =. к4`% 8. (16>:@#) 

minv =. (1.9$ ($,) (rinv8] pdt *8|:8[)&»/8qr) " 2 
. dyad vic — mdiv =. (@.8) 4/2. * 1) "_2 
: monad vm.c sqroot =. 24%: 
: dyad vm.c root =. (1 ^seD"0 

monad утс ехрп1 

exp =. ^ WB. a function in the C library 

sin =, léo 

соз =. 280. 

техр ((^8( * cos8]) 5. (^8(. * зіпё])) /8+. 


expnl 


exp'zexp 8. complex " 0" _ 
dyad vmc  expn2 =. ^8(^.8[ х 1)"0 


. monad | vm. 1logarl 


atan2 12&0.8j. мв. a function in the C library 
logarl (^.8| j. atan2/04.)"0" 

. dyad vm.c 1logar2 =, %-&^."0 

: соп}. Cp.C  powop 
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monad vs.c shape See 2.1 Arrays. 
dyad V&C reitem =. ((, 00.89) ($) D" _ 
CX.C ensuite 
: monad рс selfl 
: dyad рс self2 


adverb ac swap 


m~ is a reference to the verb named by m See 1.4 Name Resolution. 
u~ is (J u D"( ,2 1{а rk). 


. monad v.c nub =. ~: $1 
: monad vb.c  nubsieve =, 1.@# = і.- 
: dyad vb.c ne =. -.6= 


monad хес mag 


(>.-)` ($:8*4) @. complex 


dyad ve.c residue See 3,3 Atomic Verbs. 
. monad У.С reverse =. (- 1.@-@# 
. dyad У$.С rotate 


rotate =. ]`(((1.@]-]-1-)#)41)@.(*@гапк@])”0 _ 


: monad vs.c cantil =. 4.@-@rank |: ] 
: dyad VS.  cant2 

mask =. -/ 1.@>:@(>./) 

vec =. »8(8:(i.&.2)0((«./ .*) | &*8-.) 

ind =. vec +/ .* (Ё. |:) 
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canta =. {$@] ind mask8[) { ‚8] 


еп =. - #8; 
сі =. (/:@pfill ;) ( i.8en , еп + (#@> # 1.@#)@] 
cant2 =. ((rank@] сі [) canta ]) "1 _ 


See Hui [1987] 3.1. canta is dyadic transpose in APL. 


conj. сс dot 


minors =. (0 0 1&).) @ (1&([\.)) 
col =. {:@(14,)@$ 
monad v/8,^ (u8,)^ ((."1 u . v$:@minors)@. (0 164.@col) "2 
dyad xu.vy is 
x u8(v" (1v, 1v».«:A$y) " (141v, )) y [ lv=.1{v rk 


See Hui (1987] 3.3. 


. conj с.с етеп =. {74-:@:+[.)`@ V 

: conj сс оаа =. [.`(-:@:-{.)`& \ 
соп]. CX.C colon 

:. conj. cc obverse See 3.4 Obverses. 


monad Ус ravel 


+y has the following properties: 


1 -: rank ,y 
(*/$y) Hoy 

Y Gyp$,.y 
dyad VS.C over 


. топай ^ vsc table 


‚ Ut */6e).0$) $, 


. dyad VS&.C — overr z.," 1 
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: monad — vsC 1ашїп1 =. 16,05 $, 
: dyad VS.C — lamin2 

v00 z. D. ,8] 

vol =. C, £8 


wl0 =. ,:@[, 1 
vil =. ,Q:8[ , ‚:8] 
lamin2 =. v00 v0l'vl10' vll 8. (#.@*@,&гапк) 


monad ус raze 


The топай ; is >@(,&.>/)@, . This is an O(n^2) algorithm. The 
implementation uses a faster method — copying items from the 
argument into a pre-allocated space — when 1&»:848-.8: (type@>) 
and 1&>:@(>./ - «./)8: (rank8»). 


dyad vC link =. <@[ , € ]8.boxedü] 
г. соп). сес cut 

cut 1 =. (&).) (:.1) 

eut2 =. (&].) (5-1) (&.1.) 

cut 2 =. (&}:) (7.2) 


See Hui [1987] 3.2. 


: monad мс words See 1.1 Word Formation. 
monad vs.c tally =. {.@(,&›)@$ 
дуаа vS.C repeat =. ;8(«8($,:)" 1) " 1 _ 
. monad vec basel =. 26#."1 
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. dyad ve.c base2 


. (#@) # DT 8. (*йгапк@[) 
. CANO). BC 81)gext +/. * 1) "1 


: monad vec  abasel 


max =. >./818, 
. >:@<.@{2&^.)@(1&>.) 
abasel =. #:~ $&2@bits@max 


т 
E. 
a 
a 
и 


: дуаа vec аразе2 =. (LI (E7170 /7N.8).8,)2"1 0 


monad утс fact 


dyad vm.c outof 

case =. #. 8 (0ш>*.(=<.)) 8 ([,),--) 
£000 =. t8] * !@[ * !8-~ 

#001 =. 0: 


£010 =. ‘domain еггог'"0 

£011 1&^@[ * [ ! (-»:) 

£100 0: 

f101 ‘can not happen'"0 

#110 =. _16*@-~ * !&|&>:- 

#111 =. 0: 

outof =. £000° #001` £010° £011" £100° £101°£110° £111 @.case"0 


See SHARP APL Reference Manual, pp. 131-133 (Berry (1979]) and 
3.3 Atomic Verbs. 


. conj. cfc fit See 3.4 Variants. 


: conj. xc foreign 


The !: conjunction takes integer scalar left and right arguments, and 
produces verbs. (One exception: 5!:0 is an adverb.) These verbs 
behave like other verbs; in particular, they have intrinsic ranks, may be 
assigned names, and may serve as arguments to adverbs and 
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conjunctions. Where these verbs take names as arguments (file names, 
workspace names, or object names), the names are always boxed, and 
the verb rank is 0. 


See Appendix E for the names of functions which implement the 
various cases of m! :n. 


adverb ас slash 


. adverb арс sildot 


key =. (04) (RD) CD \ 


osub =. >@]`(>@[ »8:( ]) 6. (*0#8]) 

oind =. (+/51./ €/.&, 1.)@(2&{.)@(,&1 1)8$ 
oblique =. (#{озшЫ"0 1)) (оіпа`) C G8(«* 2))) V 
sldot =. id (oblique : key) 


: топай Урс  gradel 
qsort NB. a function in the C library 
arg =. 4" 1 ,. }&.>@1.@# 
gradel =. >@{:"1 8 qsort @ arg 

: dyad VEC grade2 =. (4: 


adverb арс bslash 


base 16>.8-@{ * i.Gem 

iind =. base ,. |8[ <. en - base 

seg =. ((44.)/@0 (C ])"1_ 

infix =. (@seg) (iind ^) (1) \ ("0 ) 
prefix =. (@{.) (>:@,.@1.@#`) (1) V 
bslash -. id (prefix : infix) 


. adverb арс  bsdot 


en . #0) 


(en >.@% 15».0|8[) (en 0&>.@>:@- [) 8. (0&<:@[) 


Chapter 8 64 Primitives 


kay =. еп`еш @. (0&<@[) 

omask =. (em,en) $ ($&0818[ , $61@kay) 
outfix =. (@#) (omask ) C1) \ ("D ) 
suffix =. (8).) ~ C (.80i.08)) V 

bsdot =. id (suffix : outfix) 


: monad увс  dgradel 


qsort NB. a function in the C library 

darg =. €" 1,. -6.»0i.04 

dgradel =. |.8- 8: (>@{:"1) 8 qsort 8 darg 
: dyad vg.c dgrade2 =. {~\: 

monad v.c left1 

dyad v.c left2 
. conj. cc lev 

monad ус righti 

dyad v.c right2 
. conj. сс — dex 


топай vs.c catalog 


count =. +*/@$@> 

prod =. */\.@}.@(,&1) 

copy =. */@[ $&> prod8[ (#,)&.> ] 

catalog =. (;@:($&.>) $ count <"1@|:@сору ]) " 1 


See Hui [1987] 2.1. 
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dyad VSC from 


ifrom =. (#@] pind [) >@{ <" 16] 


afi =. pind’ (i.@[-.(pind>)) 8. (boxed@]) 
afrom =. ($@] #. $8] »8(8:(afi&.») >@[) ifrom ,@] 
from =. ifrom'afrom 8. (boxed@[) " O _ 
See Hui [1987] 2.2. 
. monad уѕс head =. O&( 
. dyad vS.C take 
fill =. »8((&(* ';(4«$0);0)) 8 (2 32&i.8(type*-.Gmt)) 
pad =. £41118] $~ (|е[ - #@]) 0) $8] 
ti =. 1.@-@[ + [ + #@] 
сазе =. 0&<:@[ K.8, |@[ > #@] 
itake =. (ti(1)' (),-Pad)' (i.8[(1)" (],pad) @. сазе 
taker =. '':'((.x.) itake"((:x.) y." 
raise =. (1"0R[ $ ])`]@.(*@гапк@]) 
larg =. «8,"(0) _&(0})@-@1.@# 
targ =. largé[ , <@raise 
take =. >@(takeré.>/)@targ " 1 _ 


: monad — vsc tail =. iat 


adverb ас rbrace 


m) m") 
monadu) , {~ i.8).0$ + */0).85 * # pind u 
dyad u) (i.6$8] (1.@,&,1.[) pind@u) ( ] |.8,5, $@u$ [ 


See Hui (1987] 2.4. 


. monad уѕс behead =. 18). 
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^: conj. 


conj. 


. conj. 


vs.c drop 


. O&< @[ * 0&«.8- 
. 0&>:@[ * 0&ь>.@+ 


({.~ rank) (pi + ni) $8] 


(di ц.р" — 
VS.C curtail =. _14}. 
CC ач See 3.2 Rank. 


vic execl 


MS exec2 


fc thorni See 6 Display. 
fc thorn2 See 6.3 Formatted Display. 
cg.c tie 


an adverb that produces atomic representation of a verb 
mn 

m, (v ar) 

(ш ar),n 

(а ar),(v ar) 


cgc  evger 
сс — atop 


с.с agenda 


Forargumentceils x and y of m8.v: 


mà.v y 


is ((у у) (2)`:0 у 


xm@.vy is x ((х у у) {ш `:0 y 
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: conj сс ассо =. [.@("_) 


соп]. с.с апр 
mev Empty dyadic domains; infinite monadic rank. 
usn Empty dyadic domains; infinite monadic rank. 
u&v uév : (у@[ u уё]) " ({.v rk) 

. conj. с.с under =. ().(^: 1))86 

: conj. с.с ampco =. Le 


monad ус roll 


tick =. [ <.8%- (* 'qri=: (<:2^31) | (7^5) *ar1':'')8] 
roll =. (€4:2^31)&tick"0 


See SHARP APL Reference Manual, p. 126 (Berry [1979]). 


dyad VC deal 


tick =. [ <.@%- (* 'qrle: (<:2431) (7^5) *qr1' : ' !) 8] 
step =. <@~.@((+ (2*31)&tick)/\)@[ C. ] 

arg < «6i.8-8] ,- i.8-8[ (DL ,&.» -~) ] 

deal =. ([ (. »8(step&.»/)8arg)"0 


See SHARP APL Reference Manual, р. 178 (Berry [1979]). 
CX.C label 
. noun jc alp The 256-letter ASCII alphabet. 


. monad ^ vpc  adoti 


ord =. >:8(>./) 
base =. >:@1.@-@# 
rfd =. +/@({.>}.)\. 
dfr =. /:^:2@,/ 


adotl =. (base #. rfd)8((ord pfill ])'C.8.boxed) " 1 
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. dyad vp.c adot2 =. dfré(base8] d: D { ] 


. adverb ас beol 


tt =. i.&rank |: (&(#:1.16) 

bool =. '0&$: : (*:8[ {&(tt х.)ё+ ])) " 00':1 
. monad утс eigl Not yet available 
. dyad vm.c eig2 Not yet available 


. monad урс  cdoti 


ac =. (6 à. 2 € 161.00, ] 

dfc =. »8(ac&.»/)8(pind&.» , <@i.@[) 

bc =. <@((] і. >./) |. D8-. 

cfd =. -.@(/: {.&>)@:(Ыс”1)@1:@({/\)@(,-#[ $ p£ill) 


cdotl =. (ord cfd ])' (ord@; dfc ])8.boxed " 1 


. dyad урс edot2 


cdot2 =. ((48] pfill'dfcé.(boxed8]) D ( ]) "1 _ 


. monad Урс  razein =. e.-&» X8; 
. dyad vbc eps =, à.- < #8) 
. dyad vbc ebar Not yet available 


. adverb ac fix 


i. monad vic iota 


rev =. "or р. yj] 
ineg =. # - 06> # i.@# 
iota =. > @ (revé.>/) 8 («"08ineg , (<@$ 1.@(*/))@|) " 1 
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a. dyad vh.  indexof 
If x and y are literal lists, then x i. y is x ciof y: 


*(4.-#у.) {а.1.].у.)}256$йу.' : '' 
. а.&1.@] { mapê[ 


ciof 


Otherwise, if x and y аге not floating point or complex numbers, or 
if the comparison tolerance qct is zero, a straightforward hashed 
algorithm is used. 


Otherwise, if x or y are floating point numbers and qct. is nonzero, 
an algorithm due to Arthur Whitney is used: 


bit x Convert a floating point x into a Boolean vector 
tib b Convert a Boolean vector b into a floating point number 
hash b Hash function on a Boolean vector b 


There exists a Boolean mask with a minimum number of ones such 
that tib mask*.bit x is within qct of x; the actual mask used in 
the algorithm may have fewer number of ones. Foreach xi of x, 
compute hash mask*.bit xi; foreach yj of y, compute: 


hl =. hash mask*.bit yj*l-qct 
hr =. hash mask*.bit yj*l4qct 


Look for hi and nz in the list of hashed xi's. In other words, if 
hash were a perfect hash, then for th-.hash8 (maske*.)@ bit"0, 
x i. ү is ((th x)i.th y*1-qct)«.((th x)i.th y*l4qct). 


j. monad vm. jdotl =. 0jl&* 

j. dyad утс jdot2 =. (+3.)”"0 

NB. W.C — wordil See 1.1 Word Formation. 
o. monad vm.c pix =. pi&* 


Chapter 8 70 Primitives 


‚ dyad vm.c circle 


sin =. 180. мв. а function in the С library 
cos NB. a function in the C library 
sinh NB. a function in the C library 
cosh =. 6&o. NB. a function in the C library 


сїт =. 1+ %:@* 1&- 


zp4 -8031 %:@* +6051 

zp8 . 0ji&* $:8* 0jl&- 

zm4 =. +41 * -&1%:@% +61 

real -:@{(++) 

imag %60326 (-+) 

zarc =. 0j 1&*8^.8*0: 8. (0&-) 

zsin =. ((sin8[ * coshé]) j. ( cos@[ * зіпһё])) /8+. 
zcos =. ((cos@[ * cosh@]) j. (-8sin8[ * sinh8]))/e*. 
ztan =. zsin $ zcos 

zsinh zsin&.j. 

zcosh =. zcos@j. 

ztanh =. ztan&.j. 

zasin =. zasinh&.j. 

zacos (-:pi)&-üzasin 


zatan =. zatanh&.j. 

(^.8* zp4)' ($:&.-) &. (0&»8real) 

l (3.8]8imag)8.(0&26real) @ (*.@+ zm4) 
zatanh =. 16+ -:@^.@% 1&- 


zasinh 


zacosh 


cirp =. (cir08])' (zsin@})* (2соз@]) ` (ztan8])'" (zp48])" 
(zsinh8])' (zcosh8])" (ztanh8])" (zp80]) ^ 
(rea18])' (161) ` (àmagQ])" (2агсё]) 8. [ 

cirm =. (cir08])' (zasin8])' (zacos0])'" (zatan8])' (zm48]) ^ 
(zasinh8])" (zacosh8])^ (zatanh8])" (-@тр8@])` 
T (+87) ` (G.61)^ G.61) 6. (181) 

circle =. cirp'cirm 8. (06>@[) " 0 


See Handbook of Mathematical Functions, Chapter 4 (Abramowitz 
and Stegun [1964]). 
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. monad утс polyl Not yet available. 


. dyad vm. poly2 Not yet available. 

. monad vm. rdotl =. ^8j. 

‚ dyad утс rdot2 =. (* г.) "0 
CXC ха 
CX.C ха 

: monad ус zerol 2.0" 

: dyad v.c zero2 -.0" 

: monad ус опе1 mol. 

: dyad v.c one2 =. 1". 
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Appendix A. Incunabulum 


One summer weekend in 1989, Arthur Whitney visited Ken Iverson at 
Kiln farm and produced — on one page and in one afternoon — an 
interpreter fragment on the AT&T 3B1 computer. I studied this interpreter 
for about a week for its organization and programming style; and on 
Sunday, August 27, 1989, at about four o'clock in the afternoon, wrote the 
first line of code that became the implementation described in this book. 


Arthur's one-page interpreter fragment is as follows: 


typedef char C;typedef long I; 
typedef struct a(I &,т,4[3],р[2];}*А; 

#define P printf 

#define R return 

define V1(f) A f(w)À м: 

fdefine V2(f) А f(a,w)A a,w; 

#dafine DO(n,x) (I i-0, nmi(n);for(;ic п;++1){х;}} 

I *ma(n) (R(I*)malloc(n*4);]mw(d,s,n)I *d, #8; (DO (n, d[i]os[i]);) 
tr(r,d)I *d;(I zw1;DO(r,z-z*d[i]);R z:} 

^ gaít,r,d)I *d;(A z-(A)ma(5*tr(r,d));z-»t-t, z-»r-r, mv(z-»d, d, x); 
Rz) 

Vl(iota)(I n-*w-»p;A z-ga(0,1,£n);DO(n, z-»p[i]-i);R т;} 
V2(plus)(I r-w-»r,*d-w-»d,n-tr(r,d);A z-ga(0,r,d): 

DO (n, z-»p[i]-za-»pli]tw-»p[i]):R ғ; } 

V2(from)(I r-w-»r-1,*d-w-»d4l,n-tr(r,d): 

А zega (w->t, r, d) ;nv (z-»p, w->p+ (n**a->p) ,n) :R z;) 

V1 (box) (А _z=ga (1, 0, 0) ;*z-^»p- (I)w;R т;} 

М2 (саб) {I anetr(a-»r,a-»d), wnwtr (w-»r, w-»d) ,n-antwn; 

А т=да (w->t, 1, Gn) mv (2->р, a->p, an) ;mv (z->ptan, w-»p,wn);R z;) 
V2 (find) (} 

V2 (rah) {I r=a->r?#a->d:1,netr(r,a->p) ,wn=tr (w->r, w->d) ; 

А zaga (w->t, r, a->p) ; mv (z-»p, w-»p, wn=n>wn?wnin) ; 

if (n-=wn) mv (z->ptwn, z->p,n);R z: } 

Vl (sha) (A zaga (0,1, &w-»r) ;mv(z-»p,w-»d, w->r);R z;} 

V1 (id) {R w; }V1 (aiza) (A т=да (0, 0, 0) ; *tz->pew->r?*w->d:1;R z;) 
pi(i)(P("*d ",і); )п1() (Р("\а"):) 
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pr(w)A w;(I row->r, *d-w-»d,n-tr (r, d); DO (z, pá (4[1]));п1(); 
if(w-»t)DO(n,P("« ");pr(w-»p(i]))else DO(n,pi(w-»p[i]));nl():) 


€ vt [}="4{~<#, 
A(*vd[]) ()={0, plus, from, find, 0, rah, cat), 

(*vn(]) () »(0, id, size, iota, box, sha, 0}; 
I at(26]; qp(a)(R а>='а'&&а<='т';}чу(а){Й ac'a';) 
А ex(e)I *e;(I a=te 

if (9р (а)) {if (9[1]='=') А st[a-'a']-ex(et2); st[ а-'а'];} 
R qv (a) ? (*vn[a]) (ex (e*1)) :e(1]? (*vd[e[1]]) (a, ех(е+2)):({А)а;} 
поша (а) (А z;if(c€'0'||c»'9')R 0;zega(0,0,0) ; *z-»pmc-'0*;R z;) 
verb(c)(I i-0;for(;vt[i];)if (vt (itt]==c)R i;R 0:} 
I *wd(s)C *a; (I a,ncatrlen(s),*e-ma(n*1);C c; 


DO (n, e(i]s (asnoun (сев [1])) ?a: (a=verb(c)) ?a:c) ;e[n] -0;R ө;} 


main()(C s[99];while(gets (s)) pr (ex (wd (s))) ; } 
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Appendix В. Program Files 


ас 
aic 
ap.c 
au.c 


c.c 
cc.c 
cfc 
cg.c 
ср. 
erc 
ctc 
ex.c 


fc 
ic 
io.c 
jc 
ke 
me 
рс 
pe.c 
pv.c 
rc 
TEC 
S.C 
Le 
u.c 
utc 


ус 
vb.c 
vec 


adverbs 

adverbs — inverse and identity 
adverbs — partitions 

adverbs — utilities 


conjunctions 

conjunctions — cuts 

conjunctions — fit 

conjunctions — gerunds 
conjunctions — power 
conjunctions — rank 
conjunctions — trains 
conjunctions — explicit definition 


format (display) 
initialization 

input/output 

main and global variables 
conversion 

memory management 
parsing 


parsing — tacit conjunction translator 


parsing — tacit verb translator 
representation 

tree representation 

symbol table 

tables 

utilities 


utilities — tolerant and fuzzy comparison 


verbs 
verbs — boolean 
verbs — elementary functions 
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verbs — grades 

verbs — hashed indexing 

verbs — matrix inverse and matrix divide 
verbs — mathematical functions 

verbs — permutation 

verbs — selection & structural 

verbs — complex functions 


word formation 


external, experimental, and extra 
external — files 

external — scripts 

external — workspaces 


adverbs and conjunctions 
input/output 

global definitions 

character definitions 

extern declarations 

types 

parsing 

verbs 

external, experimental, and extra 


LinkJ 
Link] 
LinkJ example 


Appendix B 77 Program Files 


Appendix C. The Link] Interface 


LinkJ is a set of object modules which together offer the full capability of 
J while allowing links to other compiled routines and libraries. It is 
possible to call J from C and to call C from J. The interface consists of the 
following definitions, functions, and variables: 


typedef char B; 

typedef char C; 

typedef long I; 

typedef struct (І t,c,n,r,$[1];}*A; 
typedef A (*AF) (); 


С jinit (void) ; B asgn; 
А jx(C*s); С јегг; 
А jpr(A x); 

А јпа(ї t,I n,I r); 

C jfr(A x); 

A jset(C*name,A x); 

C jc(I k,AF*f1,AF*f2); 

A is the C data type of an array. The parts are the type, reference count, 
number of elements in the array, rank, shape, and the array elements, in a 
contiguous segment of memory. (Array types are boolean, literal, integer, 
floating point, complex, and boxed. See file Ij-h.) ar typifies a function 
which accepts one or more array arguments, and returns an array result; 
that is, AF is the C data type of a verb. 


jinit initializes J. jx applies to а O-terminated string representing a 
sentence, and returns the array result of executing the sentence; the global 
variable asgn is 1 if the last operation is assignment. When an error is 
encountered in an interface function, the result is 0, and the global variable 
jerr contains an error number as defined in file lj.h. For example: 


janit (); 
рејх i.3 4"); 
q7jx("*/, a"); 
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p isa 3 by 4 table of the integers from 0 to 11, and q is the atom 66. The 
space occupied by the result of јх is reused the next time jx is called. 


jpr(x) prints array x on the standard output; the result is x itself. 


jma(t,n,x) allocates memory for an array of type t having n elements 
and rank x, (The shape and the elements must then be filled.) jfr frees 
an array previously allocated by jma. Array arguments and results must 
use space managed by jma and jfr. 


jset (name, x) assigns a value to a global name (as in the copula =:). 
name is aQ-terminated string; x is an array. The result of jset is x 
itself. jx(name) returns the referent of a name. 


The preceding functions allow calling J from C. The following facilities 
allow calling C from J. A new case of the !: foreign conjunction is 
defined: 10!:k is a verb whose definition is controlled by jc, a function 
written by the user, as follows: 


C jc(I k, AF*E1, AF*£2) { 
switch (k) { 


/* x: index */ 
/* £1: pointer to топай (or NULL if no monad) ЕА 
/* £2: pointer to dyad (or NULL if no dyad) */ 


/* result is O if there is an error, nonzero if noerror */ 
H) 


10!:k invokes jc(k,&£1,&£2), wherein (presumably depending оп к) 
*£1 is assigned a pointer to a monadic function and *£2 a pointer to a 
dyadic function. The result of 10!:k is a verb like any other; in 
particular, it may be assigned a name and may serve as argument to 
adverbs and conjunction; and when it is invoked with arguments the 
functions assigned to *£1 and *£2 are invoked with those arguments. 


File main.c contains an example of using LinkJ. It has а main function 
which repeats the following steps, ad infinitum: 
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* Get a line of input from the terminal; 


* Execute the line; 
* Print the error number if an error occurred, or the result if the last 


Operation was not assignment. 
(To terminate, enter CTRL D or execute 0!:55 ''.) As well, main.c has 


ап example of using јс: 10!:0 y computes 4, y, the number of 
elements in array y; and x 10!:0 у computes x{.,y, the first x 


elements of integer array y. 
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Appendix D. Compiling 


There is a single set of program files; machine and compiler dependencies 
are handled by conditional compilation (Kif preprocessor statements). 
The following names must be defined in file j.h: 


#define sys SYS_??? 
#define LINKI 0 
#idefine WATERLOO 0 


Hdefine SYS ANSILIB 0 
#dofine SYS LILENDIAN 0 
define SYS SESM 0 
fidefine SYS UNIX 0 


sys identifies the current system, and must be one of ће sys * names 
defined at the beginning of j.h — svs PCAT, sYs MACINTOSH, 

SYS SUNA, etc. The inclusion of a system name in the list of svs * 
names does not imply that the program files would compile in that system, 
nor that the compiled result would work. (The file status.doc has a list of 
working systems.) 


LINKJ and WATERLOO are Boolean flags. LINKJ is set to 1 to generate 
the LinkJ modules. (See Appendix C The Link/ interface.) WATERLOO is 
set to 1 when compiling on machines at the University of Waterloo using 
the MFCF library organization. 


The other sys_* names are Boolean masks, used as (SYS & SYS UNIX). 
In compiling on a machine from the existing list, these masks can remain 
unchanged; otherwise, in porting to a new system, it is easiest just to set a 
mask to 0 or 1 as appropriate. svs ANSILIB selects systems using the 
ANSI С library organization, Svs LILENDIAN selects "little endian” 
(reverse byte order) systems. The PC (Intel 80x86) line of machines are 
little endian. svs sesw selects systems using the J session manager. 
(The session manager is not publicly available, so svs SESM should be 
setto.) $үз_омтх selects UNIX systems. 
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Object modules must be linked with the C math library to generate an 
executable module. The procedure varies from system to system; the 
command cc *.o -1m -о j works under UNIX. 
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Glossary and Index Ч > left argument 


A juh 2.1 typedef array 
AA ph typedef translat. action 
An explanation is provided for every абан, vee B. monal t 


ame in the program files. Each entry agg jh absolute value 
'onsists of a name, a program file АС jth 2.1 A reference count 
lame, а section number in this book (if ACTION p.h 1.2 parser action header 
пу), and an explanation. The following 2%! auc 4 толай from C function 


Y ac2 auc dyad from C function 
onventions and abbreviations apply: ADERIV ah derive verb from adverb 


4 
4 

adotl Урс 8 топай А. 
Names spelled with majuscules denote — adot2 vpe 8 dyad A 
lefined types (typedefs) or defined °% рс 1.2 parser action 


| и ADV jth 22 a type 
onstants and macros; those spelled advform cic 1.3 derive an adv from a conj 
vith minuscules denote C functions and aeq vb.c dyad = A subcase 
ariables. Names localized in functions AF jth 21 typedef APL function 
re omitted. afi ус dyad ( standard index 
aform “с bonded conjunction 
afrom мес 8 dyad | A subcase 
| A sequence of letters; everywhere agenda cge 8 е. 
AH jih 2.1 А no. of header words 
dv Adverb aii uc no. of atoms in an item 
rg Argument alil uc 1 if all ones 
alp іс 8 a. 
har Character alt aic $61 184 
А ^ 1 amp сс 4 ё 
onj Conjunction AE ee Bek: 
| Left noun argument to an adverb — ^N jih 2.1 А number of atoms 
or a conjunction ane vh.c fne A subcasc 
у АМҮ jth 2.2 A composite type 
Right noun argument to a appt Asc pipe file handler 
В i appfl Х.с appf subfunction 
Fonjuncuon ais шс 2.1 arithmetic progression 
Left verb argument to an adverb АА jth 2.1 А rank К 
ога conjunction агер тс 5.1 atomic representation 
аго гс 5.1 atomic rep, opened 
Right verb argument to a arx хс 51 monad 51:1 
g в х 
conjunction AS ith 21 А shape : 
asgn jc 6 last op was assignment 
Left argument ASGN jih 22 A type 


ASSERT jh 3.5 argument validation 
ASSERTVV сс 4 — verb-verb case of conj 
AS1 ah 4 adverb-derived monad 


Right argument 
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AS2 
AT 
atan2 
atco 
atop 
AV 
a0jl 


B 
band 
basel 
base2 
bdiv 
behead 
beq 
Bfromb 
Bfroml 
ВЕгот2 
ban 
bind 
bial 
ble 
blt 
bminus 
bool 
воо 
booltab 
booll 
boo12 


boxq 
boxs 

bp 
bplus 
break 
breaker 
brem 
bsdot 
bslash 
BxD 

вм 

BxZ 
bytes 


Glossary 


adverb-derived dyad 
A type 


8: 
ё 

A value 
051 


typedef boolean 

dyad *. B subcase 
monad $. 

dyad в. 

dyad з B subcase 
monad |. 

dyad - B subcase 
conven: B from D 
convert: B from І 
convert: в from 2 
dyad ! subfuncon 
dyad 1 subfunction 
dyad т subfunction 
dyad «: Bsubcase 
dyad « B subcase 


dyad - B subcase 
b 

А type 

function values for b. 
monad m b. 

dyad m b. 

dyad +. B subcase 
monad « 

А type 

топай 9!:6 
monad 9!:7 


bytes per atom 
dyad + B subcasc 


check for user break 
dyad | B subcasc 

Ss 

\ 

convert: в (тот D case 
conven: B from I case 
convert B from 2 case 
bytes in use 


cadv 
canta 
cantm 
canti 
cant2 
car 
case 
cases 
casel 
case2 
catalog 
catsp 
cB 

cc 
ссопј 
ccurry 
cove 
cb 
CDERIV 
edot 1 
cdot2 
cdyad 
ceilingl 
center 
ceq 
cfd 
cforkv 
cformo 
ода 
даз 
cgav 
char 
CHAR 
chookv 
cof 
circle 
clock 
CLOCK* 
стопаа 
CMPX 
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jih 22 typedef byte 

je-h 1.1 character ID codes 
тс сору атау 

jch 1.1 char type: letter 
pec L2 :12 translator action 


мес 8 1: subfunction 
КЕЧ 1: оп tables 

узс 8 топай |: 

vsc 8 dyad |: 

mc copy array recursively 
с 

рс 12 parse table 

cgc 8 топай mé.v 

cgc 8 dyad mé.v 

vsc 8 monad { 

хм. we 

jch 1.1 char type: В 

jch 1.1 char type: colon 
pec 12 :12 translator action 
pec 1.2 :12 translator action 
кс convert: conditional 
jeh 1.1 char type: dot 

ah 4 derive verb from conj 
vp.c 8 monad c. 

vpc 8 dyad с. 


12 translator action 


пс 54 5':4 subfunction 
vb.c dyad = C subcase 
Урс 8 cycle from direct 
pec 12 :12 uanslator action 
pec L2 :12 translator action 


xc PC топай 8!:0 
хс РС топай 8: :1 
хс PC 8!:0 setting 
с 

jih 22 A type 


pec L2 :12 translator action 
vic 8 dyad i. subfunction 
vm.c8 dyad o. 

с 

jh clock-related 

pec L2 :12 translator action 
jih 22 а type 


Index 


ONJCASE 
on jug 
onname 
onnect 
onnum 
onsa 
onstr 
ontinue 
onl 

on2 
opyl 
opylf 
оруг 
opy2f 


51 

52 
trans 
type 
urry 
urtail 
ut 
utol 
uto2 


LI char type: N 
3.3 coerce monad argument 
3.3 coerce dyad arguments 
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Glossary 


_ __ _. input handler 
parser action 

A type 

encode as NNNV,VN,VV 
monad + 

convert to name 

51:4 subfunction 
convert to numeric list 
:12 translator subfn 
Convert to string 


топай m':0 

dyad т`:0 

monad 21:4 
copyl subfunction 
dyad 2 
copy2 subfunction 


printf _ 
printf minus sign 
printf . 

printf plussign 
char type: quote 

char type: space or tab 
C string into J string 
conj-derived топай 
conj-derived dyad 

212 translator 
character type 

parser action 

толай }: 


топай v:.0 
dyad v;.0 


dash 
dbin 
ddiv 
deal 
DECLF 
DECLFG 
decrem 
default 
define 


adged 
daradel 
dgrade2 
divide 
а 

аст 
ае 

dit 
dmin 
dminus 
dne 
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convert: case encoding 
convert among B, 1, 0,2 
char type: other 

printf CtoJ forma 
char type: digit or sign 


typedef real 


dyad ! D subcase 
dyad + D subcase 
dyad ? 

declarations for x adv 
declarations for x conj y 
monad «: 


depth of function calls 
dyad = D subcase 
топай u/ . v 

1. 

топай ^ D subcase 
топай ! D subcase 
direct (rom cycle 
monad «. D subcase 
direct from reduced 
convert: D from 2 
invoke named monad 
invoke named dyad 
apply monad 

derived monad header 
apply dyad 

derived dyad header 
dyad +. D subcase 
топай ^: 


D subcase 
dyad «: D subcase 
dyad < D subcasc 
dyad «. D subcase 
dyad - D subcase 
fne D subcase 


Index 


do с 
DO jh 
domerr auc 


dot 8 
dotprod сє 8 
double С 
aplus эуес 
DR crc 
dren vec 
drep тс 52 
drop у.с 8 
drr rc 52 
drx xc 52 
ds auc 3.1 


dsignum vec 7 
dtymes үес 
duble vec 8 


DxB kc 

[23 kc 

ох? kc 
dyad pc 12 
ebar Урс 8 
EDGE pe 12 
edit xc 

efr erc 

EI wc Ll 
eig! утс 8 
eig2 vm.c 8 
else c 

EN wc Lt 
encell fc 62 
endif с 
enframe fc 62 
ENGAP fic 


enstack мс 11 


ensuite сас 
eo сс 

EPILOG jh 23 
eps vbc 8 
еа voc 8 
errsee јс 35 
Eve jh 35 
even cc 8 
every — ac 


Glossary 


do n times under index i 
verb with cmpty domain 


dyad u/ . v 


dyad + D subcase 
derived rank 

dyad | D subcase 
display representation 
dyad ). 

51:2 subfunction 
monad 51:2 

define symbol 

monad * D subcase 
dyad * р subcase 
monad +: 

convert: D from B case 
convert: D from I case 
convert: р from 2 case 
parser action 


dyad Е. 

^ composite type 

PC monad 8!:9 
effective rank 

word formation fn code 
monad c. 

dyad c 


word formation fn code 
boxed display subfn 


boxed display subfn 
monad “: insert gap 
tokens subfunction 

$. handler 

u.. vandu.: v 
temps clean-up 

dyad е. 

dyad = 

Vif display event msgs 
event codes 


“each” operator variant 


evger 
evmg 
evms 
evoke 
ex 
exec] 
exec? 
exit 
exp 
expni 
expn2 
extern 


fa 
fabs 
fac 
fact 
factpl 
factp2 
FAPPEND 
fclose 
fdef 
feq 
ferror 
fgetc 
fgets 
fh 

fi 
fibon 
FILL 
filler 
FINDC 
fit 
fitctl 
fitct2 
fitppl 
fix 
fixa 
fixi 
fixpath 
fixpv 
FL 
floor 
floorl 
fmod 
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cge 8 
xc 35 
xc 35 
uc 

xc 

vc 8 
vc 8 
[9 

[е 

утс 8 
утс 8 
c 

тс 

c 

vm.c 
утс 8 
cfc 34 
cfc 34 
xh 

с 

auc 
utc 7 
c 

с 

с 

уһс 8 
чс 
cpe 8 
jih 

uc 

vhc 8 
cfc 34 
cfc 34 
“с 34 
cfc 34 
ac 8 
ac 

ac 

ac 

ac 

jth 22 
© 

vec 8 
€ 


топай 9::8 
monad 91:9 

4 if in the form m~ 
monad 4!:55 
dyad ". 


monad ^ 


dyad ^ 


free array 


monad ! subfunction 
monad ! 

топай ^'.n 

dyad *!.n 

C file opcode 


derive verb/adv/conj 
equal within fuzz 


dyad i. hasher 
suing to integer 
dyad u*in 

fill value 

fill value 

dyad i. find in hash 


топай u!.n 


dyad u!.n 


monad ":!.n 


- subfunction 

- fncall depth 

. fn call path 

+ fixpath value 
type 


»ccccn 
Mmmm 


monad «. 


Index 


: B subcase GAPPEND ah 


fe 61 monad * 


D subcase gc mc temps: purge; keep arg 
(с 61 monad ": 1 subcase оса vec 8 dyad +. 
fc 6.1 header for formatting fns сэ тс temps: purge; keep args 
fc 6.1 monad ": 2 subcase ае vbc 8 dyad >: 
vh.c lif items not equal GGA ic initial: 
Cc 13 fgh GG4 ic initialize 4-byte constant 
хс MAC monad 81:16 568 ic ialize 8-byte constant 
xc МАС топай 8!:17 GINSERT ah opcode 
© global 5с global symbol table 
© gnl хус global names in 41:1 
xc 8 ft: grade vg.c /: subfunction 
сс size 3 a-train or c-train gradel Урс 8 топай /: 
рс 1.2 parser action grade2? үрс 8 dyad /: 
ctc monad f g h graft гес 54 5':4 subfunction 
ctc dyad гок ot vbe 8 dyad > 
рс 1.2 parser action gtrain cle 13 m 
с GTRAIN ah 1.3 `: opcode 
с gtl pec translator: :12 subín 
r т.с free memory 92 pec translator: :12 subfn 
ram їс boxed display subfn 
READ xh C file opcode halve чес 8 топай -: 
read с һеаа ҹс 8 топай i. 
real utc 7 within fuzz of real HOMO jth 2.1 lif homogeneous 
ree с hook “с 13 £g 
ВЕЕ mc 2.3 free cover hooko cte 13 size 2 a-uain or c-train 
rom vsc 8 dyad { hookv 
seek c hookl 
size с һоок2 
tell с host 
UNC jth A composite type hostne 
UPDATE xh C file opcode htab мс dyad i. hash indices 
WRITE xh C file opcode hypoth у.с complex: monad | 
write С 
x т inverse 1 jth 22 typedef integer 
xr rc 1C jth item count 
хх xc ID jih 3.1. ID field of verb/adv/conj 
1 jh 3.1 primitive monad header iden aic 34 identity function adverb. 
1RANK jh 3.2 топай rank handler idiv хес dyad 4 І subcasc 
2 jh 3.5 primitive dyad header ieq vb.c dyad = 1 subcase 
2RANK jh 3.2 dyad rank handler if с 
ifdef с 
а тс generate array ifndef С 
A jh 2.1 ga cover ifrom vsc 8 dyad { I subcase 
am5243 утс топай ! subfunction IfromD kc 7 convert: I from D 
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Ifrom2 
aged 

ii 

iind 
ilem 
ile 

ilt 
imin 
aminus 
›ттех 
immloop 
inbuf 
include 
increm 
indexof 
ant 
infile 
infix 
infl 
inf2 
initevm 
insert 
INT 

int 

inv 
invamp 
invdef 
invl 
iota 
iplus 
ir 

irem 

is 
isatty 
isg 
isignum 
isl 
ISIBYTE 
itake 
itymes 
IxB 

TxD 


x ос е 


оо ос оо 


convert: I from 2 
dyad +. I subcase 
E 

dyad ux subfunction 
dyad *. I subcase 
dyad <: І subcase 
dyad < г subcase 
dyad «. 1 subcasc 
dyad - I subcase 
immediate схесшіоп 
1mmex loop 

uses input buffer 


monad >: 
dyad i. 


input file handle 
dyad uv 
monad 
dyad : 

initialize event msgs 
monad m/ 

A type 


DE 

inv тфу usn subcase 
inv default 

толай u^: 1 

monad i. 

dyad + I subcase 
monad 3!:1 

dyad | I subcase 
parser action 


топай * I subcase 

^ composite type 

dyad (. atomic left arg 
dyad * I subcase 
convert: I from B case 
convert: 1 from D case 
convert: I from 2 case 
value of integer atom 


je 
year 
jconjug 
азу 
jdotl 
jdot2 
jeq 
jerr 
зехр 
oF 
Jfappend 
fdir 
jferase 
jfloor 
jfopen 
JFOPEN 
JFPRINT 
JFPROF 
jfr 
jfread 
JESAVE 
jfsize 
jéwrite 
aged 
jgets 
jinit 
jinit2 
jiread 
jiwrite 
jlem 
2109 
jma 
mag 
jminus 
jne 
joff 
jot 
jouts 
jplus 
jpow 
эрг 
pute 
jputs 
jrem 
jset 
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LinkJ interface to С fn 
dyad o. Z subcase 
monad * Z subcase 
dyad ъ 2 subcase 
monad j. 

dyad 3. 

dyad = 2 subcase 
error number 

monad ^ 2 subcase 
typedef applic. file 


dyad 11:3 
топай 1!:0 
monad 1!:55 


monad <. 2 subcase 
open file for processing 
application file opcode 
application file opcode 
application file opcode 
Link] cover for fa 
толай 1!:1 
application file opcode 


dyad 1!: 
dyad +. 2 subcase 
get a line of user input 
Link) initializations 
initializations 
monad 1!:11 

dyad 1!:12 

dyad ^. 2 subcase 
dyad ^. z subcase 
Links cover for ma 
monad | 2 subcase 
monad - 2 subcase 
fne 2 subcase 
sign-off 

<$0 

display а tine 

dyad + 2 subcase 
dyad ^ 2 subcase 
display on screen 
display a character 
display a string 

dyad | 2 subcase 
Link copula 


Index 


signal ис 
signum уес 
SPR jh 
зати утс 
stf XS.C 
stfrec XS.C 
sti юһ 
stinit ioh 
stkiav ioh 
sto io.h 
stratts X.C 
stref xc 
staatts X.C 


stslow XC 
ststop ioh 


tan? мс 
tymes — vec 
x lje 
ey арс 
Fi kc 
_tmpnam C 
abel сх 
aminl vs.c 
amin2 S.C 
c эс 
ст хес 
е vb.c 
eftl vc 
eft2 vc 
ess ус 
ev сс 
ink VS.C 
INKJ jh 
ocal зс 
ocaltimeC 
og c 


ogari утс 


ogar? утс 
ong c 
ONG MAX jh 
ONG MIN jh 
PAR jih 
r uc 


35 
7 


© 
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8 
8 


Glossary 


display event msg 
monad * Z subcase 
print short string 

monad %: Z subcase 
pointer to jstfrec 
application file info 
sesm input 

sesm initializations 
sesm key input available 
sesm output 

PC rd display attributes 
PC refresh display 

PC set display attributes 
PC set stow display 
sesm terminate 

Atari GNU C kludge 
dyad * 2 subcase 
Link execute 


dyad us. 
convert: function header 


m : n initialize labels 
monad ,: 

dyad ,: 

last character 


local symbol table 


monad ^. 
dyad ^. 


max I value 
min I valuc 


А type 
left rank 


match 
mathl 
mathiz 
math2 
math2z 
matthl 
MAX 
maxbytes 
maximum 
mdiv 
memchr 
memcmp 
memcpy 
memset 
mergel 
merge2 
MIN 
minimum 
minors 
minus 
тілу 
ммм 
мор2 
monad 
move 
тг 

mtv 
MTYOIN 
MTYOUT 
mv 

пу] 


НАР 
NAME 
nan 
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мс 8 
mc 
vec 8 
je 0 
mc 23 
с 

jc 12 
jth 22 
(с 62 
vbc 8 
vm.c 
vm.c 
vm.c 
vm.c 
fc 62 
jh 
mc 
vec 8 
vic 8 
[9 

с 

с 

с 

ас 8 
ас 8 
jh 
vec 8 
сс 8 
vec 8 
vic 8 
улс 
утс 
рс 12 
рс 12 
uc 

јс 24 
io.h 
io.h 
ос 

uc 

jh 

Ah 22 
іє 


dyad < 


malloc cover 
monad | 
maint 
malloc cover 


marker 

A type 

matrix image 

dyad -: 

math monad executor 
math monad executor 
math dyad executor 
math dyad executor 

1 16).@4_2 14].]8":6« 
maximum 

max bytes used in line 
dyad >. 

dyad +. 


monad vj 

dyad vi 

minimum 

dyad «. 

топай u/ . v subfn 
dyad - 

monad i. 

rotate z so that »:/ +.» 
261 

parser action 

parser action 

monadic rank 

$0 

jsto opcode 

jsto opcode 

move 

move onc atom 


size of alphabet 
А type 


Index 


sand vbe 8 dyad +: obut јс buffer for short output. 


nc s.c 4120 subfunction obverse CC 33:. 
neases рс 1.2 no. of rowsin cases obvl cc monad u :. v 
nex хс топай 4::0 obv2 cc dyad u :. v 
NDEPTH рс max depth of fn calls odd ec 8 .: 
ndig wc AMIGA LatticeC kludge oind арс 8 топай u/. subfunctio 
ne vbc 8 dyad ~: oldout 5С old outfile value 
negate vec 8 топай - omask ap.c 8 dyad u^ subfunction 
negl je 21 1 one je 241 
neq vbc dyad = subfunction onel vc 8 monad 1: 
NEVM jh 3.5 no. of event messages one2 vc 8 dyad 1; 
НЕКО io.h size of fn key defn buffer onm. sc opened name 
NINB io.h size of typeahead buffer олі сс 4 monad шу and uàv 
NINPUT jh max length of input line _ on2 сс 4 dyad viv 
nla sc 41:1 initials interest ope vsc 8 топай > 
nline скс m:n numberoflines oprod ас dyad u/ 
nlmask 5С 41:1 numbers to type ord vp.c 8 order of a permutation 
NLOG ioh stze of session log osub арс 8 топай u/. subfunctio! 
nls sc 41:1 subfunction outfile ЈС output file handle 
nlx sc 41:1 subfunction outfix арс 8 dyad u\. 
nll хс топай 4: :1 outof vm.c8 dyad ' 
nl2 хс dyad 41:1 over vsc 8 dyad , 
нмєм тс max size for malloc OVERFLOW jh large D value 
NN ah 4  noun-noun case of conj overr vsc 8 dyad ,. 
NOBUF jh length of obuf 
nor vbc 8 dyad +: Р jh typedef primitives 
norm vic %:@{+/ . * n) pad пс $4 51:4 subfunction 
not vec 8 топай -. parse рс 12 interpret tokenized line 
NOTCONJ jth 12 A composite type peopyl хс топай 2!:5 
NOUN jth 22 А composite type peopylf xw.c pcopyl subfunction 
NPP jh max value for арр рсору2 хус dyad 2!:5 
NPROMPT jh max length of prompt рсору2# xw.c pcopy2 subfunciion 
NTH2 Сс 63 dyad ": max width peve kc 2.2 convert if possible 
NTSTACK jh 1стрѕ: stack frame size pdt vic dyad +/ . * 
nu wc 1.1 mauonalusealemnatives — pfill vpe 8 permutation fill 
nub vc B8 monad ~. PI jh 3.14159265358 ... 
nubsieve vbc 8  monad -: pie je 2.1 3.14159265358 ... 
NUMERIC jih 22 А composite lype pind vp.c 8 positive indices 
NV ah 4  noun-verb casc of conj pinv урс permutation inverse 
NW KW WS length of header pix vm.c 8 толай о. 
NWPFX хус WS length of prefix plus vec 8 dyad + 
NWPTR хус WS length of pointer ply cp.c monad u^ 
NXIL xwc  WSblocksizein wcp polar — vmc8 топай *. 

poly]  vm.c8 топай p. 
oblique apc 8  monad u/. poly2 vmc8 dyad p. 
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povtake ус monad > subfunction razein vbc 8 топай e. 


ромор сре 8 ^: rbrace ас 8 } 
prefix арс 8 топай u/ re fc 6.2 boxed display subín 
PREF 1 ah 32 топай rank handler rd xfic file read 
PREF2 аһ 3.2 dyad rank handler rdotl vm.c 8 топай r. 
preparse CX.C tokenize linesin m : п rdot2 vm.c8 dyad r. 
robe sc symbol table: ref or set RE jh 3.5 retum if error 
rod uc */ on integer list recip vec 8 monad * 
PROLOG jh 23 temps: checkpoint rect vm.c 8 топай +. 
rompt ioc 0 display user input prompt reduce ас monad u/ 
oromptq хс monad 9!:4 refresh хс РС топай 8!:7 
orompts Х.С топай 9!:5 reitem  vsc 8 dyad 5 
rtser ХС MAC топай 8!:19 repeat — vsc 8 dyad + 
" tc 3.1 table of primitives reshape vsc dyad s, 
save) XW.C топай 2!:3 residue vec 8 dyad | 
jsavelf хус psavel subfunction return С 
save? хус dyad 21:3 reverse vs.c 8 monad |. 
jsave2f хус psave2 subfunction rewind С 
'Sptr Lc 3.1 indexin ps foreachlD rfa vp.c 8 reduced from direct 
str fc 63 dyad ": printf string RHS jth 12 A composite type 
M p.h 1.2 typedef parse table ri xc топай 3::2 
tr jth typedef pointer rightl ve 8 
олс рс 12 parser action right2 ус 8 

rinv vic 8 
bx box drawing characters rlq хс 
[ct comparison tolerance rls хс 
evm event messages RMAX jh 
fuzz fuzz RMAXL jh maxrankas long 
PP print precision roll vc 8 monad ? 
prompt jc input prompt root vm.c 8 dyad з: 
a Ré.» = ropen xs open script. 
r vic 8 ОВ decomposition rotate vsc 8 dyad |. 
rl jc 8 random link round vic «.8(0.584) 
sort С RPAR jih 22 А type 

rr uc right rank 

jh return RZ jh 35 return if 

a тс reference array 
ank узс 8 топай ses s juh typedef short integer 
ankle ис `1@.(*@#@$› SA w.c Ll word formation state 
апк1 cre monad u"n SAPPEND xh script opcode 
anklex crc monad rank executor savel хус топай 2!:2 
ank2 erc dyad u"a savelf хус savel subfunction 
ank2ex СС dyad rank executor save? хус dyad 2':2 
avel v&c 8 monad , save2f хус save2 subfunction 
aze vc 8 топай ; sc uc 2.1 scalar integer 
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SCALARFN 
scalars 
scc 

sof 
sclass 
scam 
scpt 
septl 
scpt2 
scripti 
script2 
SEEK CUR 
SEEK END 
SEEK SET 
seg 

self 
selfv 
selfi 
self2 
sesm 


sesmexit i 
sesminit i 


sex 
зех1 
sex2 


SGN 
shape 
shiftl 
shift2 
shl 
short 
shr 
sigflpe 
sigint 
signal 
signum 
sin 
sinh 
size t 
sizeof 
slash 
sildot 


ah 
uc 
ис 
uc 
vb.c 
uc 
xs.c 
с 
xsc 
лс 
xs.c 
xh 
xh 
xh 


Glossary 


1 if scalar function 
scalar 4-byte object. 
scalar character 
scalar floating point. 
monad - 

scalar name 
scptl/scpt2 subfn 
топай o 
dyad 0': 
monad 1!:2 

dyad 1':2 

fseek opcode 

fseek opcode 

fseek opcode 

monad о\ subfunction 
^ array for current verb 
old $: value 

monad $: 

dyad $: 

1 if using session mgr 
session manager: epilog 
session manager: prolog 
symbol! table expunge 
monad scalar executor 
dyad scalar executor 
typedef scalar function 
scalar monad header 
scalar dyad header 
signum 

monad $ 

топай |.!.п 

dyad |. 
Е 


BE 
floating point exception 
user interrupt 


monad * 


sleep 
sil 

SN 

SNB 

SNZ 

sp 
spell 
spellin 
spellout 
spit 
sprintf 
sps 

зо 

soo 
sqroot 
sqrt 
square 
SREAD 
зга 
srdlg 
sreduce 
згер 
аг1 

srx 

ss 
sscriptl 
sscript2 
зт 
state 
static 
stdin 
stdnm 
stdout 
str 
strcat 
strchr 
strcmp 
strcpy 
strlen 
strspn 
strtod 
struct 
stype 
sum 
suffix 
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c 

aic uni" 

w.c 1.1 word formation state 
мс l word formation state 
w.c l.l word formation state 
xc monad 71:0 

w.c 1.1 spelling table 

мс 1.1 ASCH string to ID 


we 1.1 IDto string 
xc топай ?!':2 
с 

хс monad 7!:1 


wc 1.1 word formation state 
w.c 1.1 word formation state 
vm.c 8 топай à: 

с 

vec 8 топай *: 

xh script opcode 

$c symbol table read 

Sc srd localor global 
xc топай f/ forscalar f 
rc 5.3 string representation 

гс 5.3 srep subfunction 

хс 5.3 топай 5!:3 

w.c 1.1 word formation state 
х$.С monad 1!:3 

х$.с dyad 11:3 

w.c 1.1 typedef rhematic state: 
w.c 1.1 rhematic state table 


E standardize name 
с 
uc suing of length n 
с 
с 
с 
с 
с 
с 
с 
c 


xc 22 топай 3!:0 
ve.c monad +/ 
арс 8 топай ov 


Index 


swap ac 8 ~ tf m.c temps: free old frame 


swapl ac monad u- tfail рус translator: 1 if failed 
swap2 ас dyad v- tfloor utc 7 tolerant <. 
switch C tg me temps: get new frame 
SX w.c 1.1 word formation state th fc 6.1 monad ~: num subcase 
SY jth 2.2 typedef symbtab entry thbox fc 6.2 monad ": A subcase 
SYMB jth 22 л type thn vhc 8 dyad i. hash bytes 
symbis 86 symbol table set thornl fc 6 monad ": 
symbrd 9с symbol table read thorn2 Ёс 63 dyad ": 
SYS jh D system!D ths vh. 8 dyadi. stan of hash 
SYS ^ jh D system IDs and masks tie ege 8 > 
system С time с 
BZ. w.c 1.1 word formation state timet С 
39 w.c Ll word formation state tle utc 7 tolerant <: 
tleaf пс 54 5!:4 subfunction 
CLc 1.3 trains: adv adv tlt utc 7 tolerant « 
cic 1.3 trains: adv adv case tmpnam С 
ctc 1.3 uains: adv adv adv tname рус translator: names 
сьс 13 wains: adv абу adv case tokens мс 1.1 build parse stack 
сьс 1.3 trains: adv adv conj case — tostdout jc Jif output 10 stdout 
vs.c 8 топай ,. totbytes m.c bytes used in session 
cte 1.3 trains: adv conj tparse рус translator: :11 and :12 
сес 1.3 trains: adv conj case tpop тс 0 temps: purge 
сіс 1.3 trains: adv conj adv tpush mc temps: insert new entry 
сес 1.3 trains: adv сопј айу case traverse m.c apply £ tocach leaf 
сьс 1.3 trains: adv conj conj treach apply trr tocach atom 
сьс 1,3 trains: adv conjconjcase trep tree representation 
ph 1.2 translator action header — troot. 51:4 subfunction 
vs.c 8 monad (: trr 51:4 subfunction 
v&c 8 dyad (. trx monad 5!:4 
vsc 8 топай + ts monad 61:0 
m.c temps: base tsit monad 6!:2 
ctc 1.3 trains: conj adv tss топай 61:1 
: conj adv tssbase time base 
: conj adv adv tstack temps (A) AVit stacks) 
: conj adv adv tstacka temps current stackframe 
: conj adv conj ttokens translator: tokenize 
: conj conj trop temps top 
ins: соп} соп} adv tval translator: values 
: conj conj adv twprimes sizes for symbot tables 
coe : conj conj conj two 2 
'ccc : conj conj conj tymes vec & dyad + 
ceil ute 7 tolerant >. typedef С 
'DECL etc trains: declarations. 
eq utc 7 tolerant = о jih unsigned 
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ос 
under 


jth 
cc 8 


UNDERFLOW j.h 


under] 
under2 
unlink 
ung 


сс 
ec 
©. 


хус 


unquote p.c 


unquol 
опапо2 


ас 
ас 


unsigned С 


unsr 
until 
ипм 

upon2 


у 

vadv 
VAV 
veon) 
vcurry 
vdyad 
VERB 
Уба 
vforkv 
v£ormo 
vhookv 
vi 

vib 
vis 
vmonad 
vmove 
vn 


void 
vpunc 
vs 
vtrans 
уу 

v2 


+ 
ча 


rc 
c 

сс 
сс 


jth 4 
рус 12 
jh 24 
рус 12 
рус 12 
pvc 12 
jh 22 
хс 

рус 12 
рус 12 
рус 12 
ис 


* 


afc 


WATERLOO jh D 
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typedef unsigned byte 
s. 
smali D value 
monad u&.v 
dyad u&.v 


WS remove given names 
топай or dyad m- 
monad m- 

dyad m- 


51:3 inverse 


unsr Subfunction 
dyad uev 


typedef verb 

:11 translator action 
AV for verb/adverb/conj 
:11 translator action 
:11 translator action 
:11 wanslator action 

А type 

validate file name 

+11 translator action 
:11 translator action 
:11 translator action 
validate integer 

validate integer, bounded 
:11 translator action 
:11 translator action 
+11 translator action 
validate noun 

verb-noun case of conj 
validate name 


:11 translator action 
validate string. 

:11 translator 
verb-verb case of conj 
integer pair 


right argument 


file write or append 
1 if Waterloo libraries 


wexf 
НЕ 
WF2 
while 
whilel 
while2 
WI 
withl 
withr 
wnc 
wncf 
wal 
wolf 
wopen 
woprl 
wopr2 
wordil 
words 
wp 

WP 
wpfx 
wptr 
ча 

wr 
wrdir 
WREAD 
wtype 
WUPDATE 
WWRITE 
м2 


хаду 
хс 
xconj 
xevt 
xevta 
xd 
xdash 
xdged 
xdrem 
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fc 
xw.c 
fic 
хәс 
хәс 
хус 
хус 
хус 
c 
срс 
сре 
їс 


61 


61 


6.1 


6.1 


22 


54 


топай ": B max wid 
WS copy 

monad ": D max wid 
WS offset to directory 
WS expunge 

WS wex subfunction 
WS monad header 

WS dyad header 


monad u^: 
dyad u^ 
monad ": 
monad ту 
monad чеп 
WS name class 

WS wnc subfunction 
WS name list 

WS wnl subfunction 
WS open 

WS monad executor 
WS dyad executor 

word index and length 
monad ;: 

WS dir names 

words per array 

WS prefix 

WS wp and ма locatio 
WS dir index/lengthjyp 
write to screen 

WS write directory 

WS opcode 

etype clone for wordi 
WS opcode 

WS opcode 

monad ": 2 max widt 


I max міі 


xm:l 
t: argument encoding 
xm:2y 

convert to "lowest" type 
xevt subfunction 
monad or dyad m : n 
"dash" box drawing cha 
dyad +. D subcase subf 
dyad | D subcase subf 


Index 


xiged мес 
xil хус 
XINF jh 
xirem мес 
XRAN jh 
xnl xc 
xn2 exc 
xvi exc 
xv2 exc 
z * 
2 jh 22 
zacos vzc 8 
zacosh — vzc 8 
zarc vzc 8 
zasin vzc 8 
zasinh мас 8 
ZASSERT мс 
zatan vzc 8 
zatanh — vzc 8 
zceiling VZC 
cir vac 8 
fconjug VZC 
2cos ус 8 
Zcosh vac 8 
div vic 
EPILOG vzc 
req vic 
EQ утс 
его jc 21 
его? јс 
erol ve 8 
ero? ус 8 
vac 8 
vac 
vzc 8 
ус 
FIDECL vzc 
F2 утс 
F2DECL улс 
ус 
VLC 
vic 
lem vic 
log vac 8 


dyad +. 1 subcase subfn 
WS dir, index/length 

_ internal representation 
dyad | І subcase subfn 
_. internal representation 
monad m : y 

dyad x : n 

monad u : y 

dyad x : v 


result 

typedef complex 
complex: _ 2&o. 

с 680. 

: 1250. 
complex: 1&o. 
complex: —5&o. 
complex: arg validation 
complex: 340. 
complex: _7во. 
complex: monad >. 
complex: dyad o. 
complex: monad + 
complex: 260. 
complex: 6£o. 
complex: dyad + 
complex: standard exit 
complex: dyad = 
complex: 1 if equal 

o 

8-byte zero 

monad 0: 

dyad 0: 

complex: monad ^ 
complex: 1 if zero 
complex: monad <. 
complex: monad header 
complex: declarations 
complex: dyad header 
complex: declarations 
complex: dyad +. 
complex: zgcd subfn 
complex: 051 
complex: dyad *. 
complex: monad ^. 


zmag 
zminus 
тт} 

zm4 
2negate 
znoncel 
znonce2 
292 

zov 
zplus 
трон 
zp4 

zp8 
zrem 
zsin 
zsinh 
zsqrt 
251 

252 
ztan 
ztanh 
ztrend 
ztymes 
ZUN 
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vc 
утс 
ус 
vzc 
vzc 
vac 
ус 
VLC 
ус 
мас 
23 
узс 
ус 
ус 
vzc 
ус 
ус 
у.с 
vzc 
утс 
ус 
vc 
vc 
vic 
kc 

kc 

kc 

vc 


со оо ос 


complex: monad | 
complex: dyad ~ 
complex: 0j 1 
complex: 40. 
complex: топай - 
complex: nonce error 
complex: nonce error 
complex: 1 if nonzero 
complex: 1 if overflow 
complex: dyad + 
complex; dyad ^ 
complex: 4&0. 
complex: 840. 
complex: dyad | 
complex: 1&0. 
complex: 5&o. 
complex: monad à: 
complex: monad shell 
complex: dyad shell 
complex: 3&o. 
complex: 7&o. 
complex: monad * 
complex: dyad * 
complex: 1 if underflow 
convert: 2 from В case 
convert: 2 from D case 
convert: Z from I case 
complex: 150 


Index 


Appendix Е. Foreign Conjunction 


x, Xf, xs, etc. are names of C program files 


0! host xf * ts x 5 
0 hostne xí • tss х» 
0 acriptl м • script2 м tsit x * 
0 sscriptl x * sscript2 х dla • 
0 joff u • 
эрх * 
11:0 jfdir xf • sps: e 
1 jfread x • spit x * 
1 * jfwrite x 
1 + jfappend м сда х * 
1 jfsize xf + cgas х * 
1 jiread xf • colorq x • 
1 * jiwrite xf colors х * 
1 jferase xf * refresh x • 
edit x • 
2 * мас xw fontq x • 
2 wml xw * fonts x * 
2 savel xw è save2 л» prtscr x * 
2 psaval xw * psave2 х» 
2 Copyl xw * copy2 w rlqx • 
2 рсору1 xw * pcopy2 xw тіз х • 
2 * мех xw promptq x * 
prompts x • 
stype х * boxq х • 
irae boxs x * 
riae. етш x • 
evms х • 
nex s • 
nll s * nl2 ; 101: је х • 
ех. +, 
fxx х я 
arx х 
drx x 
srx x 
trx x 


=з x+ | Vat 


E >. 


Appendix Р. System Summary 


vb, р, у, etc. are names of С program files 


sclass vb* eq vb 
box ve? lt vb 

ope v» gt vb 
coninf w 


conjug ve * plus ve 

signum ve * tymas ve 
negate ve * minus ve 
recip ve * divide ve 


ехрп1 vm * expn2 vm 
shape v: * reitem vs 
swapi* 

mag ve * residue ve 


* dotc 

* colona 

ravel vi” Over vs 
таге v? link v 


tally v: * repeat vs 
fact vm * outof vm 
злазћ з • 

bslash ap + 


leftlv* left2v 
rightlv* right2v 
catalog v: *-Ё#гош vs 
rbrace a + 

* qqa 

“tiec 

* atop. 

+ ampe 


rollv*dealv 


label cx 
boolas 
razein vb* eps vb 


iota v* indexof vh 
Pix уш * circle wm 
ха сх 


islp 
floor] ve * minimum ve 
ceill ve * maximum ve 
coninf w 


rect vm * gcd ve 

polar ум * Lem ve 
not ve * le: 
minv vi * mdiv vi 


1одаг1 vm * logar2 vm 
ensuite a 

nubve 

reverse м * rotate м 


*evenc 
* obversec 

table vs * overr vs 
* cut cc 


basel ve * base2 ve 
-fit d 

sldot ар • 

bsdot эр * 


*levc 
*dexc 

head v * take v 
behead м * drop v 


execlv* ехес2 v 


* agenda cg 

* under с 

a. alpj 

с. @igl vm * eig2 vm 
E. * ebar vb 

j. jdotlwm* jdot2 vm 
P. polyl vm * poly2 vm 
y. xda 


isgp 
dacrem ve • le vb 


increm ve * ge vb 
inflv*inf2v 


duble ve • nor vb 
square ve * nand vb 
halve ve * match vb 
sqroot vm * root vm 


selflp* 
nubsieve vb • ne vb 
cantlw*cant2w 


* оаа с 


laminl м • lamin2 м 
words w* 


abasel ve * abase2 ve 

* foreign: 

gradel vz* grade2 ve 
dgradel vz * dgrade2 v 


tailwe 
curtail vs» 


thornlí*thozn2í 
«ачдаг a 

* atcoc 

*ampcoc 


А. adotlvp* adot2 vp 
C. cdotlvp* cdot2 vp 
f. fixi» 


NB. wordilw 

г. rdotlvm* rdot2 vm 
0: zerolv*zero2v 
1: onelv*one2v 


